Dim strService
strService = "WebCT"
strComputer = "."
Const EVENT_SUCCESS = 0
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "WebCTscript@mydomain.com"
objEmail.To = "SawPer@mydomain.com"
Set objShell = Wscript.CreateObject("Wscript.Shell")
set objComputer = GetObject("WinNT://myDomain/" + strComputer + ",computer")
set objNTService = objComputer.GetObject("service", strService)
If objNTService.status <> 4 Then
objShell.LogEvent EVENT_SUCCESS, "VerifyWebCTService - WebCT was NOT running, check for problems! Service Status = " & objNTService.status
objEmail.Subject = "WebCT service problems!"
objEmail.Textbody = "WebCT Service was NOT running! Check for problems! Service status = " & objNTService.status
objEmail.Send
objNTService.start
objShell.LogEvent EVENT_SUCCESS, "VerifyWebCTService - WebCT was started. Service status = " & objNTService.status
wscript.quit
Else
objShell.LogEvent EVENT_SUCCESS, "VerifyWebCTService - WebCT Service was running!"
End If