vbscript - 使用 VBScript 如何检查 Spooler 服务是否已启动，如果未启动？

Question

我想使用 VBScript 检查 Spooler 服务是否启动，如果没有启动，下面的代码检查服务状态，但我需要一些帮助来修改它，以便我可以检查它是否启动。

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