vbsをつかってバッチファイルをバックグラウンドで実行する

somebatch.batというバッチファイルを実行する場合、バッチと同じフォルダに下記のファイルを作成します。 ダブルクリックで実行するとsomebatch.batがバックグラウンドで実行され、同じフォルダにログファイルが作成されます。

Set ws = CreateObject("Wscript.Shell")
strScriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
ws.run "cmd /c " & strScriptPath & "somebatch.bat 1>" & strScriptPath & "somebatch.log 2>&1" , vbhide