We are building an alert to check the PAHT service to see if it is running or not. If it isn't, send us an email. The check that we are doing is always returning that the service is not running so I am wondering if we have the service name wrong. Here is our code. Any Ideas?
dim objShell, objNet
dim strToEmailAddress, strFromEmailAddress, strServiceNameToCheck
dim strSMTPServer, strSMTPServerPort
dim strComputerName
Set objNet = CreateObject("WScript.NetWork")
strServiceNameToCheck = "Tessitura ETicket Server - Live"
set objShell = CreateObject("Shell.Application")
If objShell.IsServiceRunning(strServiceNameToCheck) = false then
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Print at Home Service Not Running"
objMessage.From = "Our_Server"
objMessage.To = "Our_Alert_Email"
objMessage.TextBody = "Fix It"
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail"
'Server port (typically 25)
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
End if
set objShell = nothing
set objNet = Nothing