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.1\root\cimv2")

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

使用vbscript访问远程计算机中的cmd提示符

1 个答案: