Monitoring Services in Windows Servers via VBScript

Here is a script I wrote to monitor services in Windows Server which became very useful for my job.

If you want to use this script, don’t forget the following things.

1. You need to supply a server name to this script as a parameter
2. You need to supply values for the following variables in the script manually
        – sFrom : From E-email address, could be a fake address
        – sTo : who wants to receive alerts emails when the services isn’t running. Multiple email addresses can be entered separated by semi-colon (NOT COMMA, remember this is Microsoft).
        – sSMTPServerName : A local SMTP server name

I wrote a batch file where I call this script with different server names like below,

CScript C:ScriptServiceMon.vbs ServerName1
CScript C:ScriptServiceMon.vbs ServerName2

You can copy and paste the script as below OR download it from HERE.

‘******************************************************************************
‘ Name: ServiceMon.vbs
‘ Purpose: This script will check all the services on the specified server and send e-mail
‘ to specified e-mail addresses when services (set to Automatic start) is not running state
‘ You should be able to invoke this script via batch file and run it intervals to monitor the
‘ services on multple servers
‘ Parameter: ServerName
‘ E.g., CScript ServiceMon.vbs MySQLServer
‘ Written by: Anand Venkatachalapaty
‘******************************************************************************
‘On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Dim MonitoredServer
Dim arrComputers
Dim StrComputer
Dim objItem, objWMIService, colItems
Dim sSubject, sMailText
Dim sFrom, sTo
Dim sSMTPServerName

MonitoredServer = WScript.Arguments(0)

‘NOTE HERE…NOTE HERE…NOTE HERE
‘Type the From and To Addresses here and SMTP server name
sFrom = MoniteredServer & “@mycompany.com” ‘if you want, you can type any fake address here
sTo = “myself@company.com; sysadmins@company.com” ‘multiple address sepearted by semi-colon
sSMTPServerName = “mail.company.com”

arrComputers = Array(MonitoredServer)
For Each strComputer In arrComputers

   Set objWMIService = GetObject(“winmgmts:\” & _
        strComputer & “rootCIMV2”)
   Set colItems = objWMIService.ExecQuery(“SELECT * FROM _
        Win32_Service”, “WQL”, _
        wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

      If StrComp(objItem.State,”Running”) <> 0 Then
        If StrComp(objItem.StartMode,”Auto”) = 0 Then
            If StrComp(objItem.DisplayName,”Performance Logs and Alerts”) = 0 Then
                ‘Skip it
            Else
                sSubject = UCase(MonitoredServer) & “: ” & objItem.DisplayName & ” Service is ” & UCase(objItem.State)
                sMailText = “Stopped Service Details on Server ” & UCase(MonitoredServer) & vbCrLf
                sMailText = sMailText & “Service Name: ” & objItem.DisplayName & vbCrLf
                sMailText = sMailText & “Started: ” & objItem.Started & vbCrLf
                sMailText = sMailText & “StartMode: ” & objItem.StartMode & vbCrLf
                sMailText = sMailText & “State: ” & objItem.State & vbCrLf
                sMailText = sMailText & “Status: ” & objItem.Status & vbCrLf
                sMailText = sMailText & “ExitCode: ” & objItem.ExitCode & vbCrLf
                sMailText = sMailText & “PathName: ” & objItem.PathName & vbCrLf
                sMailText = sMailText & “ServiceSpecificExitCode: ” & objItem.ServiceSpecificExitCode &vbCrLf
                InformAdmins sFrom,sTo,sSubject,sMailText,2
            End If
        End If
      End If
   Next
Next

Function WMIDateStringToDate(dtmDate)
    WScript.Echo dtm:
        WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & “/” & _
        Mid(dtmDate, 7, 2) & “/” & Left(dtmDate, 4) _
        & ” ” & Mid (dtmDate, 9, 2) & “:” & Mid(dtmDate, 11, 2) & “:” & Mid(dtmDate,13, 2))
End Function

‘*******************************************************************************
‘* Function Name: InformAdmins
‘* Purpose: Send mail using CDO.Message object which works in Windows 2000/2003
‘* Servers.
‘*
‘* Sub Routine Arguments:
‘* “From address”,”To address”,”Subject”, “Body Text”,”Prority”
‘*
‘* Importance argument should be 0 or 1 or 2.
‘* 0 – Low Priority
‘* 1 – Normal
‘* 2 – High Priority
‘*
‘* Written Date: 5/7/04
‘* Written By: Anand Venkatachalapathy
‘*******************************************************************************

Sub InformAdmins(sFrom,sTo,sSubject,sBody,nPriority)
DIM iMsg, Flds, iConf

‘* Assign cdoSendUsingPort is set to 2, i.e., send using SMTP (25) port
Const cdoSendUsingPort = 2

    ‘* Create CDO Objects and assign to variables
    Set iMsg = CreateObject(“CDO.Message”)
    Set iConf = CreateObject(“CDO.Configuration”)
    Set Flds = iConf.Fields

    ‘* Assign values to Flds class properties
    With Flds
    .Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) _
                                     = cdoSendUsingPort
    .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) _
                                     = sSMTPServerName
    .Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”)_
                                 = 25
    .Update
    End With

    ‘* Assign message properties and Send the mail
    With iMsg
       Set .Configuration = iConf
       .Fields(“urn:schemas:httpmail:importance”).Value = nPriority
       .Fields.Update
       .To = sTo
       .From = sFrom
       .Sender = sFrom
       .Subject = sSubject
       .TextBody = sBody
       .Send
    End With
End Sub
‘*******************************************************************************
‘* End of Script
‘*******************************************************************************

As per request from Bhaskar, here the modified script to send alerts via one email for all servers. Call the script like this “CScript Servicemon.vbs Server1 server2 server3 server4” like all of your servers as parameters delimited by space.

Here is the modified script:

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Dim MonitoredServer
Dim arrComputers
Dim StrComputer
Dim objItem, objWMIService, colItems
Dim sSubject, sMailText
Dim sFrom, sTo
Dim sSMTPServerName

MonitoredServer = WScript.Arguments(0)

arrComputers = Array(MonitoredServer)
For Each strComputer In arrComputers

For Each objItem In colItems

      If StrComp(objItem.State,”Running”) <> 0 Then
        If StrComp(objItem.StartMode,”Auto”) = 0 Then
            If StrComp(objItem.DisplayName,”Performance Logs and Alerts”) = 0 Then
                ‘Skip it
            Else
                sMailText = ” * * * * * ” & UCase(MonitoredServer) & ” * * * * * ” & vbCrLf
                sMailText = “Stopped Service Details on Server ” & UCase(MonitoredServer) & vbCrLf
                sMailText = sMailText & “Service Name: ” & objItem.DisplayName & vbCrLf
                sMailText = sMailText & “Started: ” & objItem.Started & vbCrLf
                sMailText = sMailText & “StartMode: ” & objItem.StartMode & vbCrLf
                sMailText = sMailText & “State: ” & objItem.State & vbCrLf
                sMailText = sMailText & “Status: ” & objItem.Status & vbCrLf
                sMailText = sMailText & “ExitCode: ” & objItem.ExitCode & vbCrLf
                sMailText = sMailText & “PathName: ” & objItem.PathName & vbCrLf
                sMailText = sMailText & “ServiceSpecificExitCode: ” & objItem.ServiceSpecificExitCode &vbCrLf & vbCrLf
            End If
        End If
      End If
   Next
Next

‘Send the email
InformAdmins sFrom,sTo,sSubject,sMailText,2

Sub InformAdmins(sFrom,sTo,sSubject,sBody,nPriority)
DIM iMsg, Flds, iConf

‘* Assign cdoSendUsingPort is set to 2, i.e., send using SMTP (25) port
Const cdoSendUsingPort = 2

    ‘* Create CDO Objects and assign to variables
    Set iMsg = CreateObject(“CDO.Message”)
    Set iConf = CreateObject(“CDO.Configuration”)
    Set Flds = iConf.Fields

    ‘* Assign values to Flds class properties
    With Flds
    .Item(“http://schemas.microsoft.com/cdo/configuration/sendusing“) _
                                     = cdoSendUsingPort
    .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) _
                                     = sSMTPServerName
    .Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout“)_
                                 = 25
    .Update
    End With

21 thoughts on “Monitoring Services in Windows Servers via VBScript”

bhaskar says:

May 5, 2011 at 6:52 pm

Hi Anand,
Your script is excellent but how to get for multiple servers in a one single mail.Request you to please please say me as i stucked at this point .Please do post the script for mulitple servers or else you can also mail the script to me at bhaskar.v25@gmail.com.I will be waiting for your reply.

Thanks,
Bhaskar.

1. anandthearchitect says:
  
  May 7, 2011 at 3:10 am
  
  mmm. That’s an interesting need. This is possible using vbscript needs time to do it. Why do you want to receive one email for all servers?
  
  1. bhaskar says:
    
    May 7, 2011 at 11:38 am
    
    Hi Anand,
    
    Actually Iam having 80 exchange servers so i want one script to run once for all these 80 servers.Is there a script to run for multiple servers at a time for all these servers.If so i want that script very very urgently because every day i am checking it manually by logging in to the server. And also if that output comes in a single mail it would be very much help full for me.Request you to help me in this issue.
    
    Thanks,
    Bhaskar.
  2. Baldeep Suri says:
    
    March 31, 2013 at 8:07 am
    
    Hello Anand,
    
    i tried to exicute the same and getting error in line :38
    
    Set colItems = objWMIService.ExecQuery(“SELECT * FROM _
    Win32_Service”, “WQL”, _
    
    Please help me out..innurgen need of it
bhaskar says:

May 7, 2011 at 11:40 am

And main thing i need the script for multiple servers to check the services at a time… Please do help me in this.

Thanks,
Bhaskar.

bhaskar says:

May 10, 2011 at 1:08 pm

Anand request you to post the script for multiple servers.

As it is very urgent for me.

Thanks,
Bhaskar.

bhaskar says:

May 16, 2011 at 1:23 pm

Anand you there………..

anandthearchitect says:

May 17, 2011 at 4:09 am

Check my blog again for the modified script after the paragraph starts with “As per request from Bhaskar, here the modified script …”. Enjoy.

bhaskar says:

May 18, 2011 at 3:22 am

Hi Anand the script is not giving the output,i want a script to run for multiple servers at a time and to check the automatic services are in which state in a single mail.Request your help in this.

Thanks,
Bhaskar.

bhaskar says:

May 21, 2011 at 6:18 pm

I tried many ways but its not giving the output for multiple servers in a single script.

bhaskar says:

May 23, 2011 at 8:49 pm

There………….

bhaskar says:

May 26, 2011 at 8:55 am

Anand i tried many ways but not getting the output request you to give me the exact script which gives he output..I am waiting its very very urgent..

bhaskar says:

June 9, 2011 at 5:00 pm

Hi Anand, i tried many days but not able to get the multiple services script request you to plz plz give me the script

Basavaraj IBM says:

September 3, 2011 at 4:55 pm

Hello anand very good vb for adminis like me

Basavaraj IBM says:

September 3, 2011 at 4:56 pm

Please let me know if some needs any simple script on windows if i have i will definitely share with you

Rohit says:

January 11, 2012 at 4:22 pm

Hi.. I wanted to know if I could use this code in VB6 and if I would have to do anything different to make it work? Thanks…

1. anandthearchitect says:
  
  January 11, 2012 at 5:40 pm
  
  VBScript code can be used in VB programs, it will work just fine.
  
Vikas says:

July 20, 2012 at 12:10 pm

When i run this script it gives error “unterminated string constant
code: 800A0409

Vikas says:

July 21, 2012 at 6:12 am

I have figured the syntax problem but when it works only for single server.

1. surya says:
  
  March 25, 2013 at 12:20 pm
  
  what was the issue? even i am getting the same problem. could you please tell me what i should change here?
  
jagadeesha says:

March 30, 2013 at 8:54 am

Is there any script available to monitor auto services and start that service from script if stopped for multiple computers