s = ExecuteCommand("ipconfig")
WScript.Echo s
' ==============================================================================
'-------------------------------------------------------------------------------
' コマンドプロンプト処理での出力結果文字列を処理する
' Command:実行するコマンド
'
' 戻り値 :コマンドが出力した文字列
'-------------------------------------------------------------------------------
Private Function ExecuteCommand(sCommand)
Dim objWS: Set objWS = CreateObject("WScript.Shell")
Dim objFS: Set objFS = CreateObject("Scripting.FileSystemObject")
Dim fname: fname = objFS.GetTempName
Dim cmd: cmd = "cmd /c """ & sCommand & " > " & fname & """"
' プロセスの戻り値を取得
Dim b
b = objWS.Run(cmd, 0, True) = 0 ' 0=成功、1=失敗
Dim s
s = objFS.OpenTextFile(fname).ReadAll ' 一時ファイルを読み込み
objFS.DeleteFile(fname) ' 一時ファイルを削除
ExecuteCommand = s
End Function