code：
<%
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso
Mlpath="d:\Test\M\"
ylj=Server.MapPath("mian"&"\"
ywj=Server.mappath("1.rar"
Set Shell = Server.CreateObject("WScript.Shell"
rarcomm= "d:\test\m\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- "
cmd=rarcomm&ywj&" "&ylj
RetCode = Shell.Run(cmd,1, True)
%>
运行报告：“Server.CreateObject 失败，无效的progID”
是不是我的服务不全，如何设置？ win.rar和cmd.exe在网站目录下。
谢谢！！！！！！！！