скриптик проверяет работает ли сервис 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
