Donnerstag, 26. Juni 2008

Läuft der Service?

Manchmal kommt es vor das ein Windows Service nicht mehr läuft.
Dann hilft nur noch ein Manueller Start.
Mit diesem Script könnt Ihr prüfen ob es Service läuft, wenn nicht
startet es den Service neu.
Am besten macht Ihr einen Job (Task) daraus und lasst das Script alle Stunde laufen.

service = "SUIR"

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objServiceList = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE Name='" + service + "'")

for each objService in objServiceList

If objService.State = "Stopped" Then
objService.StartService()
Wscript.Sleep 5000
else
rem msgbox "Service Running..."
end If

next