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

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

'creator ： eric1991 date: 2013-11-1 0:25

strcomputer = "."
set objwmiservice = getobject("winmgmts:" & "\\" & strcomputer & "\root\cimv2")
set colservices = objwmiservice.execquery("select * from win32_service")

for each objservice in colservices
wscript.echo objservice.displayname & "|" & objservice.state
next