Dienststatus per VBScript

Hallo

Auf unseren Servern hat es Applikationen, welche nach einem Neustart nicht immmer sauber hochfahren. Besser gesagt deren Dienste starten nicht bzw. wir müssen diese dann von Hand anschubsen. Ich suche deshalb eine Lösung dies per Startskript abzufangen. Wie überprüfe ich per VBScript den Status eines Dienstes um diesen dann bei Bedarf zu starten?
Vielen Dank im Voraus.

Gruss

strComputer = "."  
strSvc = "Browser"  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Service WHERE Name='" & strSvc & "'")   
For Each objItem in colItems 
    WScript.Echo objItem.Name & ": " & objItem.State  
Next

strComputer = "."   
strSvc = "Browser"  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   
Set objShare = objWMIService.Get("Win32_Service.Name='" & strSvc & "'")  
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='" & strSvc &"'", "StartService")  
WScript.Echo "ReturnValue: " & objOutParams.ReturnValue