使用VBScript如何检查后台处理程序服务是否已启动,如果没有启动它？

Question

我想使用VBScript检查后台处理程序服务是否已启动,如果没有启动它,下面的代码检查服务状态,但我需要一些帮助来修改它,以便我可以检查它是否已启动.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service")
For Each objService in colRunningServices 
    Wscript.Echo objService.DisplayName  & VbTab & objService.State
Next

非常感谢史蒂文

Answer 1

这样的事情怎么样？如果它尚未运行,则此命令将启动它.无需提前检查.

Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "NET START spooler", 1, false