環境変数を利用してVBSからMS-DOSコマンドを実行する

バッチファイルでは「%環境変数名%」と記述すると、環境変数に設定された値を取得することができます。
コマンドインタープリタの名称は「ComSpec」という環境変数から取得できます。
すべてのOSで必ず設定されているので汎用的に利用する事が出来ます。
普通に実装すると、実行結果もDOS窓に出力されますが、この方法だと標準出力を取得したりと制御できます。

「ipconfig」コマンドを実行して標準出力を取得

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

実行結果

MS-DOSコマンドで実行したものと同じです。
環境変数を使うと実装の幅が広がりますヽ(￣▽￣)ﾉ