Monitoring service with WMI

Asked Feb 19 '14 at 16:42

Active Feb 26 '14 at 20:10

Viewed 65 times

I would like to monitor some services with WMI:
1. Test if the service is running
2. If not running restart it
3. If I can't restart it send an email

Could someone help me deal with this please?

strComputer = "." 
srv= " WSearch, wuauserv "

Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Service where Name='srv'") 
For Each objService in colItems
Wscript.Echo "Service Name: " & objService.Name & VBNewLine _
    & "State: " & objService.State

     if objService.State="Stopped"  then
     objService.StartService()
    Wscript.Echo "Started service " 
    else 
    REM here the code for email if the service didn't start
 end if         
Next

edited Feb 26 '14 at 20:10

Guy Thomas

asked Feb 19 '14 at 16:42

eseuk

Does what you have so work properly? Does it start the service if it's not already running? – Bond Feb 19 '14 at 19:38
If your question is how to send an e-mail, take a look at [this answer](http://stackoverflow.com/a/17425519/1630171). – Ansgar Wiechers Feb 20 '14 at 10:17
Would it be easier to use PowerShell? – Guy Thomas Feb 26 '14 at 20:07

Monitoring service with WMI

0 Answers0