script to send an email alert when a service fails

Hi, try something like this.  This script, when started, will run until the computer is rebooted, or the service has failed, at which point it will send an email, and stop the monitoring, so you'll need to start it up again once you've fixed the service.

Regards,

Rob.

strComputer = "."
strService = "mccaservice"

' Email variables:
strServer = "mailhost.abc.com"
strTo = "john.doe@abc.com"
strFrom = "john.doe@abc.com"
strSubject = "Service Failed"
strBody = strService & " is not running." & VbCrLf

Set objService = GetObject("WinNT://" & strComputer & "/" & strService & ",Service")
boolEnd = False
Do
	WScript.Sleep 5000   ' Wait for 5 seconds
	If objService.Status <> 4 Then
		SendEmail strServer, strTo, strFrom, strSubject, strBody, ""
		boolEnd = True
	End If
Loop Until boolEnd = True

Sub SendEmail(strServer, strTo, strFrom, strSubject, strBody, strAttachment)
        Dim objMessage
        
        Set objMessage = CreateObject("CDO.Message")
        objMessage.To = strTo
        objMessage.From = strFrom
        objMessage.Subject = strSubject
        objMessage.TextBody = strBody
  		If strAttachment <> "" Then objMessage.AddAttachment strAttachment
  		
        '==This section provides the configuration information for the remote SMTP server.
        objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Name or IP of Remote SMTP Server
        objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
        'Server port (typically 25)
        objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25      
        objMessage.Configuration.Fields.Update
        '==End remote SMTP server configuration section==
 
        objMessage.Send
        Set objMessage = Nothing
End Sub

Select allOpen in new window

Hi Rob, that works brilliantly my friend. I have added it to a schedule job to keep it running after server reboots etc. Can i ask 2 questions. 1. whats does this do:
WScript.Sleep 5000   ' Wait for 5 seconds
      If objService.Status <> 4 Then
            SendEmail strServer, strTo, strFrom, strSubject, strBody, ""
            boolEnd = True
2. How can i onclude 2 email addresses to send to?

Thanks mate.

Hi, thanks for the explanation, makes sense. And the 2 addresses works as well.

Thanks very much mate.