ipconfig /all を環境変数へ代入方法

質問

http://d.hatena.ne.jp/necoyama3/20081218/1229604217
にて、ipconfigコマンドを実行して標準出力を取得する方法があり、下記VBSで
きちんと動くのですが、
-------------------------------
Dim objShell
Dim wExec
Dim sCmd

Set objShell = CreateObject("WScript.Shell")

' コマンド生成
sCmd = "ipconfig"

' コマンド実行
Set wExec = objShell.Exec("%ComSpec% /c " & sCmd)

Do While wExec.Status = 0
Loop

Result = wExec.StdOut.ReadAll

MsgBox Result

Set wExec = Nothing
Set objShell = Nothing
-----------------------------------
sCmdを下記に差し替えると、動かなくなります。
sCmd = "ipconfig /all"
もしくは
sCmd = "systeminfo"

これらコマンドに差し替えてもVBSを動かす方法は
ありますでしょうか。
直接、コマンドラインで
ipconfig /all や　systeminfoを入力する場合は
きちんと出力されます。

回答No.1

Gotthold · ベストアンサー

プログラム(ipconfig)が標準出力にどんどんデータを出しているのにそれを取り出していないので、
プログラムが出力を止めて待っている状態になっています。
標準出力を取り出さない限りプログラムが終了しないので、そこで止まっています。

オプション無しのipconfigが終了したのは、
標準出力にはき出されたデータがバッファに収まる量だったので、
プログラムが待機状態になる前に終了できただけです。

ちゃんとReadAllやReadLineで随時標準出力を取り出してください。

=========================================
Option Explicit
Dim objShell
Dim wExec
Dim sCmd
Dim Result

Set objShell = CreateObject("WScript.Shell")

' コマンド
sCmd = "ipconfig /all"
' sCmd = "systeminfo"

' コマンド実行
Set wExec = objShell.Exec(sCmd)

' 読み取り
Result = ""
Do Until wExec.StdOut.AtEndOfStream ' 標準出力が終了するまでループ
Result = Result & wExec.StdOut.ReadALL ' 標準出力をResultに保存
Loop

' デバッグ
MsgBox wExec.Status
MsgBox Result

' ファイル出力
Dim FSO
Dim f
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.CreateTextFile("test.txt")
f.WriteLine(Result)
f.Close()

お礼

ありがとうございました。