使用 vbscript 在远程机器中访问 cmd 提示符

Question

如何使用VBScript在远程机器中访问命令提示符？我们正在创建一个工具来获取远程计算机上的组件服务及其状态。目前，我们可以使用以下代码在本地机器中实现这一点：

Dim objShell : Set objShell = CreateObject("WScript.Shell")
Set getvalue=objShell.Exec("cmd.exe /C sc queryex type= service state= all")
Do
    output = getvalue.StdOut.ReadLine
    MsgBox output
Loop While getvalue.StdOut.AtEndOfStream = False 

但是我们需要在远程机器中实现相同的目标。

Answer 1

Set objWMIService = GetObject("winmgmts:\127.0.0.1rootcimv2")
Set config = objWMIService.ExecQuery("Select * From Win32_Service")
For Each thing in Config
        Msgbox thing.Caption
Next

是我们在 vbscript 中查询服务的方式。这些是可用的属性。https://msdn.microsoft.com/en-us/library/aa394418(v=vs.85(.aspx