调用rar.exe压缩文件无法执行

Question

<%
on error resume Next
qdh="51001234568"
thispath=server.mappath(".")&"\" '存放RAR.EXE和CMD.EXE的路径
xmlfile=server.mappath(".")&"\"&qdh&".xml" '要压缩的文件或文件夹
zipfile = server.mappath(".")&"\"&qdh&".zip"
Set Shell = Server.CreateObject("WScript.Shell")
if err.number<>0 then
response.write "服务器不支持"
response.end
end if
cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep "&zipfile&" "&xmlfile&""
RetCode = Shell.Run(cmd,1,True)
response.write "执行成功！"&cmd&""
if err.number<>0 then
response.write ""&RetCode&""
else
response.write err.description
end if

%>
这段代码在本机测试OK，放在服务器上就压缩不到文件，也没有报错，是怎么回事，请高手帮忙解答下，谢谢。

Answer 1

服务器上有没有权限执行rar程序。看看任务管理器中有没有启动进程