リファレンス、WshScriptExec オブジェクト、Terminate メソッド

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

WScript.Echo "before"

Set oExec = WshShell.Exec("2011121900.bat")
oExec.Terminate

WScript.Echo "after"

で、2011121900.bat は、

ping localhost -n 2 > NUL

REM pause