列出本地或远程服务的vbs代码(wmi)

function listsvr()
set objlocator=createobject("wbemscripting.swbemlocator")
set objswbemservices=objlocator.connectserver("localhost","root/cimv2")'括号里加用户名和密码,把localhost改为远程ip就可以列远程了
Set colListOfServices = objswbemservices.ExecQuery("Select * from Win32_Service")

wscript.echo _
    ("Name"&chr(9)&chr(9)&"State"&chr(9)&chr(9)&"Mode"&chr(9)&"Path Name ")
For Each objService in colListOfServices
    if len(objService.name)<8 then
      strname=objService.name&chr(9)
    else
      strname=objService.name
    end if
    wscript.echo _
   (strname&chr(9)&objService.State&chr(9)&chr(9)&objService.StartMode&chr(9)&objService.PathName)
Next
wscript.echo vbcrlf&"All Services have been listed Successfully!"

end function

listsvr()