Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
strService = "Service"

Set objEmail = CreateObject("CDO.Message")
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where     DisplayName = '" & strService & "'")
For Each objItem in colItems

If (objItem.state <> "Running" or objItem.status <> "OK") Then
    objEmail.From = "email@email.com"
    objEmail.To = "email@email.com"
    objEmail.Subject = "Service State"
    objEmail.Textbody = objItem.DisplayName & " on: "  & strComputer _
    & " State:  " & objItem.State & VbCrLf
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
    "relaysmarthost.com"
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send
    End If
Next

'Stop Service
strServiceName = "Service"
Set objWMIService = GetObject("winmgmts:     {impersonationLevel=impersonate}!\.rootcimv2")

'Start Service
strServiceName = "Service"
Set objWMIService = GetObject("winmgmts {impersonationLevel=impersonate}!\.rootcimv2")
  Set colListOfServices = objWMIService.ExecQuery ("Select * from       Win32_Service Where Name ='" & strServiceName & "'")
For Each objService in colListOfServices
objService.StartService()
Next