请试!
set objshell=createobject("wscript.shell")
objshell.run "路径名称",1,false
set objshell=nothing
<%
dim wshshell,retcode
set wshshell=server.CreateObject("WScript.Shell")
cmd=server.mappath("\ckxt\temp\you.exe")
response.write cmd

retcode=wshshell.run(cmd,1,true)

if retcode=0 then
response.write "程序没有运行!"
else
response.write "程序有运行!"
end if

set WShShell=nothing

%>
下面的代码运行calc.exe 并且在屏幕上显示最终状态。[VBScript] 
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")Set oExec = WshShell.Exec("calc")Do While oExec.Status = 0
     WScript.Sleep 100
LoopWScript.Echo oExec.Status
[JScript] 
var WshShell = new ActiveXObject("WScript.Shell");
var oExec = WshShell.Exec("calc");while (oExec.Status == 0)
{
     WScript.Sleep(100);
}WScript.Echo(oExec.Status);