How To Check Remote And Local Server Services Script

Const strSVCName = “ServicesName”

Dim objWMIService, colServices, objService, strComputer

strComputer = “ServerName”

Set objWMIService = GetObject(“winmgmts:” _

& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)

Set colServices = objWMIService.ExecQuery(“Select * from Win32_Service WHERE DisplayName = ‘” & strSVCName & “‘”)

For Each objService in colServices

if objService.State = “Running” then

Set objEmail = CreateObject(“CDO.Message”)

objEmail.From = “test@test.com”

objEmail.To = “a@a.com”

objEmail.Subject = “Service Is Down”

objEmail.Textbody = “Service is Unavaible”

objEmail.Configuration.Fields.Item _

(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

objEmail.Configuration.Fields.Item _

(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = _

“SmtpServer”

objEmail.Configuration.Fields.Item _

(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25

objEmail.Configuration.Fields.Update

objEmail.Send