WshShellオブジェクトのExecメソッドを使い、VBScriptで外部コマンドを実行する方法といくつかの実行方法のサンプルを以下に記します。
同じような動作するするメソッドとしてRunメソッドがあります。
Runメソッドに関しては「外部コマンドを実行する方法・Runメソッド」を参照してください。
mkdirコマンドを使用し、実行したカレントディレクトリににsakuraディレクトリを作成してみます。
Dim oWshShell, oExec Set oWshShell = CreateObject("WScript.Shell") Set oExec = oWshShell.Exec("mkdir sakura")
上記のVBScriptでsakuraディレクトリが作成されます。
Dim oWshShell, oExec Set oWshShell = CreateObject("WScript.Shell") Set oExec = oWshShell.Exec("notepad")
このVBScriptを起動すると、notepadが起動してVBScriptが終了します。
nodepadが終了するまで、VBScriptが待っているようにするには、以下のようにします。
notepadが起動されて、VBScriptはDo While ... Loopに入ります。
WshScriptExecのStatusプロパティはExecで起動したプロセスが起動中の間は0を示します。
プロセスが終了すると、Statusプロパティは1となります。
Do While ... Loop 内でsleep 100することにより、100ミリ間隔でStatusプロパティの値を確認しています。
notepadを閉じると、Bye!が表示されます。
Dim oWshShell, oExec Set oWshShell = CreateObject("WScript.Shell") Set oExec = oWshShell.Exec("notepad") Do While oExec.Status = 0 WScript.Sleep 100 Loop WScript.Echo "Bye!"
WshScriptExecオブジェクトのStdOutプロパティ, StdErrプロパティを利用することにより実現できます。
以下に、StdOut, StdErrプロパティを利用したVBScriptのサンプルコードと実行結果を記します。
このVBScriptのサンプルは、dirコマンドを実行しdirコマンドがSTDOUTとSTDERRに出力した内容を表示します。
このサンプルではStdErrの文字列は無いので、STDOUTのみ表示されます。
(dirコマンドを実行するため、cmd /C を追加しています。直接dirと書いたら動きませんでしたので。)
Dim oWshShell, oExec, oStdOut, oStdErr Set oWshShell = CreateObject("WScript.Shell") Set oExec = oWshShell.Exec("cmd /C dir") Set oStdOut = oExec.StdOut Set oStdErr = oExec.StdErr szStr = "STDOUT" & vbCrLf Do While Not oStdOut.AtEndOfStream szStr = szStr & oStdOut.ReadLine() &vbCrLf Loop WScript.Echo szStr szStr = "STDERR" & vbCrLf Do While Not oStdErr.AtEndOfStream szStr = szStr & oStdErr.ReadLine() &vbCrLf Loop WScript.Echo szStr
上記のサンプルとほとんど同じです。
Execメソッドにより起動するdirコマンドに無効なオプションを指定しています。
このVBScriptを起動するとSTDOUTには何も表示されず、STDERRに無効なパラメータであるメッセージが表示されます。
Dim oWshShell, oExec, oStdOut, oStdErr Set oWshShell = CreateObject("WScript.Shell") Set oExec = oWshShell.Exec("cmd /C dir /ABCDEFG") Set oStdOut = oExec.StdOut Set oStdErr = oExec.StdErr szStr = "STDOUT" & vbCrLf Do While Not oStdOut.AtEndOfStream szStr = szStr & oStdOut.ReadLine() &vbCrLf Loop WScript.Echo szStr szStr = "STDERR" & vbCrLf Do While Not oStdErr.AtEndOfStream szStr = szStr & oStdErr.ReadLine() &vbCrLf Loop WScript.Echo szStr