利用VBS实现显示系统服务列表

2017-03-13 09:24:38　

复制代码代码如下:
'执行方法：直接双击vbs文件或者通过cmd.exe 下 cscript.exe "指定脚本的路径"
'利用Vbs脚本实现显示系统服务里表

'Creator ： Eric1991 Date: 2013-11-1 0:25

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "\\" & strComputer & " oot\cimv2")
Set colServices = objWMIService.ExecQuery("Select * from Win32_Service")

For Each objService in colServices
Wscript.Echo objService.DisplayName & "|" & objService.State
Next