コマンドプロンプトの出力をVBScript内の変数に代入する

質問

VBScriptからコマンドプロンプトのver | findstr 5.1を実行し、その出力結果をVBScript内の変数に代入したいのですが、どうすればいいでしょうか？

Dim WShell
Dim result

Set WShell = WScript.CreateObject("WScript.Shell")

WShell.Run "cmd /c (ver | findstr XP > " & result & ")"
MsgBox result

とやってもresultには何も入っていませんでした。

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

こんな感じでしょうか。

Dim WShell
Dim result

Set WShell = CreateObject("WScript.Shell")
Set Exec = WShell.Exec("cmd /c (ver | findstr XP)")

' 処理完了を待機
Do Until Exec.Status
WScript.Sleep 100
Loop

result = Exec.StdOut.ReadAll

MsgBox result

詳しい説明は参考URLで。

参考URL：

http://homepage3.nifty.com/aya_js/wsh/wsh301.htm