CODE: [Copy to clipboard]Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") WScript.Sleep(5000) Wsh.Run "d:\QQ.bat",false,false Set Wsh=NoThing WScript.quit