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

[29april]

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.

[Helpmeh]

Well you can't send emails with batch, and I don't have much experience with windows services, so I suggest using another language maybe.

[gh0std0g74]

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.

here's an example vbscript to check service is up

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 = "Print Spooler" And objService.State = "Running" Then
    WScript.Echo "Print Spooler is Running"
        'SEnd email here.
    End If
Next
for sending email, you can either do it with vbscript (search google for "vbscript email") and there are code examples to do that. OR you can use blat.exe (search google for download). For batch method, you can use sc. check sc /?  for more.

[gh0std0g74]

Well you can't send emails with batch,

yes you can.

[Helpmeh]

yes you can.

I mean without downloading 3rd party programs. Anything that has a command-line opyion can be run with batch.

[29april]

gh0std0g74,

Thanks I'll search for sample VB scripts to send email as well. but how do I call this VB script from a batch file? Please let me know, I think that would solve my problem

[29april]

Also, is there a way for batch file to do it independently (without use of VB scripts)? Installing VB might be a long process

[Helpmeh]

You already have it installed. There is a cscript program that lets you run vbs files.

[29april]

Thanks Helpmeh, can u let me know the code u use in batch file to call the vb script?

[Geek-9pm]

Some reading to do. 

Visual Basic Scripting Edition
VBScript User's Guide
The VBScript User's Guide includes the following sections which explain the concept of Visual Basic Scripting Edition (VBScript) and how to use it.
http://msdn.microsoft.com/en-us/library/sx7b3k7y(VS.85).aspx

[gh0std0g74]

gh0std0g74,

Thanks I'll search for sample VB scripts to send email as well. but how do I call this VB script from a batch file? Please let me know, I think that would solve my problem

Code: [Select]

c:\test > cscript /nologo myscript.vbs


[Salmon Trout]

c:\test > cscript /nologo myscript.vbs

//nologo with 2 slashes is preferred

[29april]

thanks for your superb support, people.. Im not done yet but I guess I got all what I wanted to know :-)

[Salmon Trout]

Used without parameters, NET START returns a list of services.

Code: [Select]

C:\>net start
These Windows services are started:

   Application Layer Gateway Service
   Avira AntiVir Scheduler
   COM+ Event System
   COM+ System Application
   Computer Browser
   Cryptographic Services
   DCOM Server Process Launcher
   DHCP Client
   Distributed Link Tracking Client
   DNS Client
   Event Log
   Fast User Switching Compatibility
   Folder Size
   Help and Support
   IPSEC Services
   Java Quick Starter
   Logical Disk Manager
   MS Software Shadow Copy Provider
   Network Connections
   Network Location Awareness (NLA)
   Plug and Play
   Print Spooler
   Protected Storage
   Rapport Management Service
   Remote Procedure Call (RPC)
   Remote Procedure Call (RPC) Locator
   Remote Registry
   Secondary Logon
   Security Accounts Manager
   Security Center
   Server
   Shell Hardware Detection
   SSDP Discovery Service
   System Event Notification
   Task Scheduler
   TCP/IP NetBIOS Helper
   Terminal Services
   Themes
   VMware vCenter Converter Server
   Volume Shadow Copy
   WebClient
   Windows Audio
   Windows Firewall/Internet Connection Sharing (ICS)
   Windows Image Acquisition (WIA)
   Windows Management Instrumentation
   Windows Time
   Windows User Mode Driver Framework
   Workstation

The command completed successfully.
In a batch you can use this with a pipe to FIND and the && (errorlevel=0) and  || (errorlevel > 0) operators to see if a service is running or is not running and do something in those situations

Code: [Select]

set ServiceName=Java Quick Starter

net start | FIND "%ServiceName%" && (
    echo The %ServiceName% service is running"
    REM other commands
    REM other commands
    REM etc
    )

net start | FIND "%ServiceName%" || (
    echo The %ServiceName% service is NOT running
    REM other commands
    REM other commands
    REM etc
    )


[gh0std0g74]

//nologo with 2 slashes is preferred

yes. I always put /nologo after cscript.exe and its ok that way.  Up to the individual until M$hit makes it mandatory for  double slash syntax once and for all.

[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$.