Hallo,
ich wollte jetzt auch die Funktion nutzen, um ein KB zu verteilen.
Dieser KB ist nur auf Anforderung von MS zu erhalten und leider nicht im Update Katalog vorhanden.
Bin Schritt für Schritt den Artikel durchgegangen:
(Du musst Dich Einloggen oder Registrieren um Multimediadateien oder Links zu sehen).Hier der Auszug
Try
LabelMessage.Text = ""
Dim packagepath As String = "C:\PackDir\winword.msp"
Dim title As String = "MyPackage"
Dim description As String = "Im publishing my own package "
Dim wsus As IUpdateServer = AdminProxy.GetUpdateServer()
Dim sdp As SoftwareDistributionPackage = New SoftwareDistributionPackage()
sdp.PopulatePackageFromWindowsInstallerPatch(packagepath)
sdp.Title = title
sdp.Description = description
'sdp.PopulatePackageFromWindowsInstallerPatch(TextBoxFile.Text)
'sdp.Title = TextBoxTitle.Text
'sdp.Description = TextBoxDescription.Text
Dim sdpFilePath As String = Environment.GetEnvironmentVariable("TEMP") + "\" + sdp.Title + sdp.PackageId.ToString
Label1.Text = sdpFilePath
sdp.Save(sdpFilePath)
Dim publisher As IPublisher = wsus.GetPublisher(sdpFilePath)
Dim dir As New IO.FileInfo(packagepath)
publisher.PublishPackage(dir.Directory.ToString, Nothing)
LabelMessage.Text = "Fertig"
publisher.VerifyAndPublishPackage()
Catch es As Exception
LabelMessage.Text = es.Message
End Try
Fakt, ist es kommt keine Fehlermeldung oder so. Aber das Paket ist im WSUS Server nicht vorhanden.
Hat jemand eine Idee? Wo ist der Fehler? Leider ist im WEB nicht sehr viel zu finden. Bin für alles dankbar.
Thorben