Vbscript 使用WMI监视服务

我想使用WMI监视某些服务： 1.测试服务是否正在运行 2.如果没有运行，请重新启动它 3.如果无法重新启动，请发送电子邮件

有人能帮我处理这件事吗

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

---

你所做的一切正常吗？如果尚未运行，它是否会启动服务？如果您的问题是如何发送电子邮件，请查看。使用PowerShell会更容易吗？