WSUS-Dirk schrieb on 27.11.07 um 13:45:19:
- Welchem Client fehlen genehmigte Updates
- Welcher Client hat Updates heruntergeladen, sie aber noch nicht installiert
Entschuldige, ich habs natürlich vergessen. Hier das Script für den 2. Punkt in Deiner Aufstellung:
Set updateSession = CreateObject("Microsoft.Update.Session")
Set updateSearcher = updateSession.CreateupdateSearcher()
Set searchResult = updateSearcher.Search("IsInstalled=0 and
Type='Software'")
Set File = CreateObject("Scripting.FileSystemObject")
For I = 0 To searchResult.Updates.Count-1
Set update = searchResult.Updates.Item(I)
Next
If searchResult.Updates.Count = 0 Then
' MsgBox "There are no applicable updates."
WScript.Quit
ElseIf searchResult.Updates.Count = 1 Then
Msgbox "Auf Ihrem PC ist " & searchResult.Updates.Count & " Update
verfügbar." & vbLF & vbLF & _
"Bitte über das gelbe Schild unten rechts auf dem Monitor per
Doppelklick installieren!"
WScript.Quit
ElseIf searchResult.Updates.Count > 1 Then
Msgbox "Auf Ihrem PC sind " & searchResult.Updates.Count & " Updates
verfügbar." & vbLF & vbLF & _
"Bitte über das gelbe Schild unten rechts auf dem Monitor per
Doppelklick installieren!"
WScript.Quit
End If
Original kopiert aus: Message-ID: <1182159102.370490.134850@g4g2000hsf.googlegroups.com>
EDIT: Ich selber hab das Script nie ausprobiert!