不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

如何利用InstallShield 6.x在安装过程中建立IIS的虚拟目录？

楼主xiaojian（萧剑）2002-01-28 22:15:51 在 VB / 基础类提问

怎么试都没试出来，有人会吗？问题点数：100、回复次数：9Top

1 楼coollzh（良子）回复于 2002-01-31 09:23:14 得分 10

看看这段程序对你有没有用：
http://www.itraining.net.cn/lzh/article.asp?art_id=658Top

2 楼turbopeng（济元）回复于 2002-01-31 10:27:18 得分 0

MMTop

3 楼xiaojian（萧剑）回复于 2002-02-20 23:19:33 得分 0

upTop

4 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2002-02-21 08:41:14 得分 10

有一个net XXX （具体是什么我不记得了）命令可以添加虚拟目录，你不如在安装脚本中执行该命令来添加虚拟目录Top

5 楼yokel（SOD）回复于 2002-04-11 11:31:28 得分 10

用InstallShield6.1来使安装的文件夹加入到IIS的虚拟目录中去:

Public Function CreateWebSite(ByVal HostName As String, ByVal HostDir As String, ByVal HostComment As String, ByVal HostIP As String, ByVal HostPort As Integer) As Boolean

On Error Resume Next

Err.Clear

comp = "LocalHost"

BindingString = HostIP & ":" & CStr(HostPort) & ":" & HostName

Index = sGetNextInstanceName '==获得下一个接点的编号

Set oParentNode = GetObject("IIS://localHost/W3svc")

'Debug.Print oParentNode.ADsPath

Set newNode = GetObject(oParentNode.ADsPath & "/" & CStr(Index))

If Err <> 0 Then

Err.Clear

Set newNode = oParentNode.Create("IIsWebServer", Index)

If Err <> 0 Then

CreateWebSite = False
Exit Function
End If

End If

If HostComment = "" Then
newNode.servercomment = HostName
Else
newNode.servercomment = HostComment
End If
newNode.serverbindings = BindingString '==绑定

newNode.setinfo

Set oRootNode = newNode.Create("IISWebVirtualDir", "ROOT") '--建立站点跟目录

oRootNode.Path = HostDir

oRootNode.AccessRead = True '可以读

oRootNode.AccessWrite = False

oRootNode.EnableDirBrowsing = False

oRootNode.AccessScript = True

oRootNode.AccessExecute = False

oRootNode.AuthAnonymous = True

oRootNode.AppFriendlyName = HostName

oRootNode.AppCreate2 2 'IISAO_APPROT_POOL=2

oRootNode.setinfo

newNode.setinfo

Err.Clear

Err.Clear
Set NewWebServer=GetObject("IIS://" & comp & "/w3svc/" & CStr(Index))'重新启动

If Err <> 0 Then

'Debug.Print Err.Description

Exit Function
End If
NewWebServer.Start

CreateWebSite = True '创建成功

End FunctionTop

6 楼yokel（SOD）回复于 2002-04-11 11:36:31 得分 10

安装过程中建立IIS的虚拟目录说白了就是调用 mkwebdir.vbs脚本实现Top

7 楼xiaojian（萧剑）回复于 2002-04-12 08:41:06 得分 0

如何用InstallShield调用.vbs脚本？Top

8 楼bladeMG（刀锋）回复于 2002-04-12 11:55:31 得分 60

// 创建虚拟目录
function CreateVirtualDir(VirtualFolder)
STRING szCmdLine,szWaitTxt;
begin
if (VirtualFolder = "") then
MessageBox ("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);
else
szWaitTxt=" 正在创建虚拟目录....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ;
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
MessageBox ("不能建立WEB 虚拟目录，没有找到 WScript.exe 或执行脚本错误.",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;
Top

9 楼xiaojian（萧剑）回复于 2002-04-14 09:52:50 得分 0

谢谢你的帮助，bladeMG(刀锋)!Top