Jump to content

Prüfen ob automatische Updates erfolgreich waren


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Geschrieben

Hallo,

 

wie kann man mehrere PCs prüfen, ob die Automatischen Updates erfolgreich eingespielt wurden? Auf jeden PC einloggen und die Updateseite anzusurfen dauert zu lange. Für WSUS fehlt mir der Server.

 

Kann man das irgendwie automatisieren? Gibts spezielle Tools? Alternativen? Ideen?

Geschrieben

wie wäre es mit einem VBScript:

 

Listet dir die Hotfixes eine PCs auf, dieses hab ich aber noch nicht getestet:

 

Option Explicit

Dim strComputer, objWMIService, objRefresher, colMemory, intAvailableBytes, colSystemCalls, wbemServices, colDisks, objDisk, colQuickFixes, objQuickFix

dim wbemObjectSet, wbemObject

Dim objArgs

Set objArgs = Wscript.Arguments

strComputer = objArgs.Item(0)

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 

Set colQuickFixes = objWMIService.ExecQuery _

("Select * from Win32_QuickFixEngineering")

 

For Each objQuickFix in colQuickFixes

Wscript.Echo "Computer: " & objQuickFix.CSName

Wscript.Echo "Description: " & objQuickFix.Description

Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID

Wscript.Echo "Installation Date: " & objQuickFix.InstallDate

Wscript.Echo "Installed By: " & objQuickFix.InstalledBy

Next

-------------------------------------------------------------------

 

 

Listet dir die Servicepacks auf:

Option Explicit

Dim strComputer, objWMIService, objRefresher, colMemory, intAvailableBytes, colSystemCalls, wbemServices, colOperatingSystems, objOperatingSystem

dim wbemObjectSet, wbemObject

Dim objArgs

Set objArgs = Wscript.Arguments

strComputer = objArgs.Item(0)

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

 

For Each objOperatingSystem in colOperatingSystems

Wscript.Echo "Servicepack: " & objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion

Next

 

-----------------------------

 

 

100% sicher kannst Du aber nicht sein, ob das Hotfix wirklich erfolgreich installiert wurde. Das Script liefert nur das Ergebnis dass es drauf ist....

 

Gruß

Eric

Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden
×
×
  • Neu erstellen...