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