Скрипт проверки работы сервиса Winfows

 

скриптик проверяет работает ли сервис hMailServer и если не работает то запускает его

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_Service.Name='hMailServer'")
If objService.State <> "Running" Or objService.State <> "Starting" Or objService.State <> "Started" Then
    objService.StartService()
End If