windows - 在VBScript中获取命令行输出(无需写入文件)

我正在使用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")，但仍然没有任何输出。有人知道我可能做错了什么吗？或者有更好的方法来说明驱动器映射吗？谢谢，
二十一万三千八百九十七

最佳答案

您的脚本无法工作，因为您键入了错误的命令名-它是subst，而不是substr。