help - batch file to send automated email when windows service stops

[Salmon Trout]

The official recommendation for the Windows scripting engine is to use double slashes for switches intended to be read by the engine (cscript.exe or wscript.exe) and single slashes for options intended to be read by the script.

I am indebted to my friend Dias de Verano for this explanation of the reason.

The help visible when you type wscript /? (or more properly wscript //?) at the prompt shows 2 slashes for the switches available, although one will work in a simple case where the script itself is not supplied with any slashed parameters, as you have noticed.

The scripting host programs cscript.exe and wscript.exe are written to interpret doubly slashed command line switches as intended for themselves. The official advice from Microsoft is to use two slashes // for options specific to the scripting hosts cscript.exe and wscript.exe so that the hosts can distinguish between switches meant for them and those which may be meant for the scripts which they are running.

You may not have realised that, because the vbs file extension is associated (by Windows) with wscript.exe, the following have identical effect both at the command line and in a batch:

Code: [Select]

wscript anyscript.vbs

anyscript.vbs
And so do these

Code: [Select]

wscript //nologo anyscript.vbs

anyscript.vbs //nologo
So if anyscript had a parameter /goose either of these following could be used. Without the double slash convention the second invocation format would be ambiguous: (as to which parameter was for cscript.exe and which one was for anyscript.vbs)

Code: [Select]

wscript //nologo anyscript.vbs /goose

anyscript.vbs //nologo /goose

[Bukhari1986]

great salmon

I am impressed

[Salmon Trout]

In addition to the above I point out that you can modify various script engine options:

you can set the default scripting engine to be either cscript or wscript

you can set the default logo behaviour to be //nologo or //logo

type either cscript //? or wscript //? at the prompt to see how.

[Sidewinder]

hi, I need to create a batch file that sends an email automatically when a windows service stops.

I could have the batch file run every 10 minutes to see if the service is active, but I have no idea how to give an if condition and then send an email. First of all is this possible? any suggestions would be great to know. Thanks.

Another way to approach this would be to monitor the service and send the email when the service status changes to stopped. Rather then manually run a batch file every 10 minutes or use the scheduler, this script will run in an infinite loop monitoring the service.

Code: [Select]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
    ExecNotificationQuery("Select * From __InstanceModificationEvent " _
        & " Within 1 where TargetInstance ISA 'Win32_Service'")

Do While True
  Set objLatestProcess = colMonitoredProcesses.NextEvent
  If LCase(objLatestProcess.TargetInstance.Name) = "" Then    'Name of service quoted; do not use display name
    If objLatestProcess.TargetInstance.State = "Stop pending" Then
    Call SendMail
    End if
    If objLatestProcess.TargetInstance.State = "Stopped" Then
    Call SendMail
    End if
  End if
Loop

Sub SendMail()
Set cdo = CreateObject("CDO.Message")
With cdo
.Subject = "Service Down" 'email subject line quoted
.From = "" 'your email address quoted
.To = "" 'recipient email address quoted
.TextBody = "" 'email body text quoted
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "" 'your ISP SMTP server address
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
End With
Set cdo = Nothing
End Sub

Fill in the information where noted, save script with a VBS extension and run from the command prompt as cscript scriptname.vbs

Good luck. 

[Salmon Trout]

Sidewinder, once the script discovers the service is in the stopped state,  will it keep sending emails every 10 minutes?

[Bukhari1986]

@ sidewinder

won't it require password for sending the mails

I mean if i add in the field From="[email protected]"

then will it send the email without the password here ??

[Sidewinder]

Sidewinder, once the script discovers the service is in the stopped state,  will it keep sending emails every 10 minutes?

No. The script only sends an email when an event changes the service state to stopped or stop pending. Apparently, services and processes act differently in that processes terminate and flush out of memory while services are forever and may simply stop running.

@ sidewinder

won't it require password for sending the mails

I mean if i add in the field From="[email protected]"

then will it send the email without the password here ??

Depends on the ISP. I got it to work as posted, but if a username and password are required (security breach)  there are CDO configuration items for just that purpose. The OP never even mentioned the service name and for all we know the email may be going through an internal network where username and password are not required.

 

[Geek-9pm]

The link below is old material. It dates back to Windows 98.
OLEXP: How to Send Outlook Express Mail from a Command Line

[29april]

I executed the below script but nothing happens.

If the service is stopped I get a dialog box with the wscript.echo command, if it is started, nothing happens. emails are not being sent out either (I am able to send independently from command prompt).

Is there a way I can spool on the entire script to a log file and find out what the issue is? do you guys see anything wrong with the below script? PLEASE let me know. Thanks for ur support.


strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer &

"\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service")
For Each objService in colRunningServices
    If objService.DisplayName = "Licensing Service" And objService.State = "Stopped" Then
       WScript.Echo "Licensing Service is Stopped"
        Call SendMail
    End If
Next

Sub SendMail()
   Set cdo = CreateObject("CDO.Message")
   With cdo
      .Subject = "Service Down"         'email subject line quoted
      .From = "[email protected]"         'your email address quoted
      .To = "[email protected]"      'recipient email address quoted
      .TextBody = "Test"                           

   'email body text quoted
      

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"   

      'localhost
      

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      .Configuration.Fields.Update      
      .Send
   End With
   Set cdo = Nothing
End Sub

[Sidewinder]

I couldn't see anything wrong, but I couldn't get it to run either, even with valid values. Question: why is the smtpserver set to localhost? Are you running your own mail server? or are you using an ISP?

Code: [Select]

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service")
For Each objService in colRunningServices
    If objService.DisplayName = "Licensing Service" And objService.State = "Stopped" Then
       WScript.Echo "Licensing Service is Stopped"
        Call SendMail
    End If
Next

Sub SendMail()   
  Set CDO = CreateObject("CDO.Message")
  With cdo
.From = "[email protected]"
.To = "[email protected]"
.Subject = "Service Down"
.Textbody = "Test"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp mail server"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "userid"
' .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
' .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Configuration.Fields.Update
.Send
End With
End Sub

If using an ISP, check with them for the smtp server name and the port to use (this information is probably on their website). If you need to use authentication, uncomment the three configuration statements and fill in the values appropriately. Yeah, I know having the userid and password in the script is a security breach, but that is whole other subject.

Good luck. 

[ghostdog74]

or maybe there's something wrong with the schema site from M$.