VB Scripte für SCOM
Hier habe ich ein paar VB Scripte welche ich mit SCOM für den täglichen Betrieb nutze…
Auflisten aller Services:
Dim strComputer
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colListOfServices = objWMIService.ExecQuery _
(“Select * from Win32_Service”)
For Each objService in colListOfServices
Wscript.Echo “ServiceName: ” & (objService.Caption)
Wscript.Echo “StartModus: ” & (objService.StartMode)
WScript.Echo “Zustand: ” & (objService.State)
WScript.Echo ” “
Next
WScript.Quit
Ein kleines Script zum Rebooten eines Servers:
Dim oShell
set oShell = createobject(“wscript.shell”)
oShell.Run “shutdown.exe -r -f”
WScript.Echo “Reboot in 30Sek.”
WScript.Quit
und zum Schluss ein modifiziertes WSUS Script:
wsus.vbs
Das Script prüft die freigegebenen Patches/Hotfix auf dem WSUS Server und installiert sie. Der Server wird anschliessend in jedem Fall rebootet.
