调用WMI必须函数QueryWmiStatus()
代码如下： QueryWmiStatus() Func QueryWmiStatus() #cs ; 函数名称: QueryWmiStatus() ; 详细信息: 查询系统WMI服务是否存在，不存在便退出； 如果存在并且没有启动，那么设为自动运行并启动它。 ; 返回值 : 没有 ; 作者: Sanhen(gxbeiliu@163.com) #ce $foo = Run(@ComSpec & " /c sc query winmgmt", @SystemDir, @SW_HIDE, 2) $lines = "" While 1 $line = StdoutRead($foo) If @error Then ExitLoop $lines &= $line Wend Select Case StringInStr($lines, "1060") MsgBox(32,"错误","本软件运行所需的服务不存在") Exit Case StringInStr($lines, "STOPPED") RunWait(@ComSpec & ' /c sc config winmgmt start= auto', @SystemDir, @SW_HIDE) RunWait(@ComSpec & ' /c sc start winmgmt', @SystemDir, @SW_HIDE) EndSelect EndFunc |
查看所有评论
All Right Reserved