▲▲▲▲▲▲使用InstallShield制作ASP安装程序,自动创建虚拟目录的问题?▲▲▲▲▲▲ 在线,解决马上结帖!

Question

我教你一个办法！你可以先用系统运行框处理！你用Win+R 打开运行框！然后，用WScript 或 CScript 命令运行你的脚本！
还有，你的参数后面没有跟东西，我很奇怪，
IP以及站点名那些信息都哪里传入呢？？？
你好好检查下吧！good luck

Answer 1

用.net制作安装可以解决创建虚拟目录的问题可是好像不能注册com组件关注！

Answer 2

试试这个
function CreateVirtualDir(VirtualFolder)
STRING szCmdLine,szWaitTxt;
begin
if (VirtualFolder = "") then 
MessageBox ("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);
else
szWaitTxt=" 正在创建"+@PRODUCT_NAME+"的虚拟目录....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);                                                         
//删除已经存在的虚拟目录
szCmdLine = SUPPORTDIR ^"adsutil.vbs delete w3svc/1/root/"^VirtualFolder;   
LaunchAppAndWait("CScript.exe", szCmdLine, WAIT);
//创建虚拟目录 
        szCmdLine = SUPPORTDIR ^"adsutil.vbs create_vdir w3svc/1/root/"^VirtualFolder;   
        LaunchAppAndWait("CScript.exe", szCmdLine, WAIT);
//主目录路径                             
Sprintf(szCmdLine, SUPPORTDIR ^"adsutil.vbs set w3svc/1/root/%s/Path \"%s", VirtualFolder, TARGETDIR);
LaunchAppAndWait("CScript.exe", szCmdLine, WAIT);
//应用程序保护 中(共用的)
Sprintf(szCmdLine, SUPPORTDIR ^"adsutil.vbs APPCREATEPOOLPROC w3svc/1/root/%s", VirtualFolder);
LaunchAppAndWait("CScript.exe", szCmdLine, WAIT);                                                          
//执行脚本许可
Sprintf(szCmdLine,  SUPPORTDIR ^"adsutil.vbs SET w3svc/1/root/%s/AccessScript TRUE", VirtualFolder);
LaunchAppAndWait("CScript.exe", szCmdLine, WAIT);
//默认文档
Sprintf(szCmdLine,  SUPPORTDIR ^"adsutil.vbs SET w3svc/1/root/%s/DefaultDoc \"default.asp\"", VirtualFolder);
LaunchAppAndWait("CScript.exe", szCmdLine, WAIT);
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;

Answer 3

TO  guanhui1997(阿关) :
--------------------------
可是可以了，但就是在IIS企业管理器中默认的WBE中的VirtualFolder前有个红色的Error,这是为什么，而其实的就不是？？？