在 VBScript 中获取命令行输出（不写入文件）

Question

我正在使用 VBScript，我的目标是能够用驱动器号替换我选择的路径。我需要 D 驱动器，如果它不可用，我需要检查它是否已映射到正确的位置；如果不是，则通知用户。我发现了这个： http://technet.microsoft.com/en-us/library /ee156605.aspx 我正在尝试改编他们的第二个示例：（

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("cmd /c ping -n 3 -w 1000 157.59.0.1")
Do While Not objExecObject.StdOut.AtEndOfStream
    strText = objExecObject.StdOut.ReadLine()
    If Instr(strText, "Reply") > 0 Then
        Wscript.Echo "Reply received."
        Exit Do
    End If
Loop

我的改编）：

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("cmd /c substr")
strText = ""

Do While Not objExecObject.StdOut.AtEndOfStream
    strText = strText & objExecObject.StdOut.ReadLine()
Loop

Wscript.Echo strText

然后我可能会搜索告诉 D 驱动器映射位置的字符串。我也尝试过 objShell.Exec("subst") ，但我仍然没有得到任何输出。有人对我可能做错了什么有任何想法吗？或者有更好的方法来了解驱动器映射吗？谢谢，

213897

Answer 1

您的脚本无法运行，因为您输错了命令名称 - 它是 subst，而不是 substr。