- 915 名前：デフォルトの名無しさん mailto:sage [2009/05/29(金) 15:46:09 ]
- 先にexitを送らない限り一生終わらない(AtEndOfStreamはFalseのまま)
Dim objWShell
Dim objExec
Set objWShell = CreateObject("WScript.Shell")
Set objExec = objWShell.Exec("%ComSpec%")
objExec.StdIn.WriteLine "ipconfig"
objExec.StdIn.WriteLine "exit"
Do Until objExec.StdOut.AtEndOfStream
MsgBox objExec.StdOut.ReadLine
Loop
