在VBScript中获取命令行输出(不写入文件)

我正在使用VBScript,我的目标是能够用一个驱动器号替代我select的path。 我需要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 

然后,我可能会searchstring,告诉D驱动器映射的位置。 我也试过objShell.Exec("subst") ,但我仍然没有得到任何输出。 有没有人有什么想法,我可能做错了? 还是有更好的方法来告诉驱动器映射? 谢谢,

213897

Solutions Collecting From Web of "在VBScript中获取命令行输出(不写入文件)"