在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")，但我仍然沒有得到任何輸出。有沒有人有任何想法，我可能做錯了什麼？還是有更好的方法來講述驅動器映射？謝謝，

Answer 1

您的腳本不工作，因爲你已經輸入了錯誤的命令名稱 - 這是subst，不substr。