VBSでDOSコマンド実行

VBScriptでコマンドを実行するとウィンドウ非表示で実行できる

‘実行時のウィンドウサイズ
‘0 非表示
‘1 通常ウィンドウ
‘2 最小化
‘3 最大化

‘DOSのコマンドの実行が終了するのを待って次のコードを実行したい場合は、同期モード”True”


Option Explicit
Dim str,cmdstr
Dim objShell

str = “c:¥temp\ip.txt”
cmdstr = “cmd /c ipconfig /all > ” & str

Set objShell = CreateObject(“WScript.Shell”)

msgbox cmdstr ‘コマンド確認

objShell.Run cmdstr,0,false