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

При рестарте сервера, hMailService почему то не рестартует автоматически, пришлось написать вот такой скриптик, проверяющий не запущен ли сервис, и если не запущен, то рестартует его. Скриптик запускается по расписанию.

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