Question

VBS 如何获取指定进程的服务（详细信息）？

的

Answer 1

dim src,i,info,sum
set src=getobject( "winmgmts:root/cimv2" ).execquery("select * from win32_service" )
set fso=createobject("scripting.filesystemobject")
for each i in src
sum=clng(30-len(i.name)+len(i.state))
info=info&i.name&string(sum,chr(32))&i.state&chr(13)
next
if right(info,1)=chr(13) then info=left(info,len(info)-1)
fso.createtextfile("save_Servicesinfo.txt").write info