发信人: nonepassby(左右無人)
整理人: qcrsoft(2002-05-09 23:21:39), 站内信件
|
相信通过前面的几个asdi的例程，大家对adsi技术强大的功能有一定了解，下面再介绍一个有关adsi技术iis目录服务技术，这个例程比较简单，就不多做介绍了。
'**********************************************************************************
' 创建一个WebServer的虚拟目录
' 必须参数：VDir,为创建虚拟目录的物理路径；WNumber为站点号;VDname虚拟目录名称
' 当创建成功时返回1，否则提示出错信息并返回0
'**********************************************************************************
' Dim name,webno,vpath,iscreate
' vpath="d:\myinfo\family"
' webno=1
' name="myfamily"
' iscreate=CreateWebVDir(vpath,webno,name)
' If iscreate=1 Then
' Response.Write "虚拟目录"&name&"创建成功,物理路径为"&vpath
' Else
' Response.Write "虚拟目录创建失败，请确定您是否以管理员身份登录或第"&webno&"站点是否存在!"
' End If
Function CreateWebVDir(VDir,WNumber,VDname)
On Error Resume Next
Dim ServerObj,VDirObj,VDirName
VDirName="vdir"
Set ServerObj = GetObject("IIS://"&oComputer&"/W3SVC/"&WNumber&"/ROOT")' 得到FtpServer的主目录对象
' 建立虚拟目录
Set VDirObj = ServerObj.Create("IIsWebVirtualDir", VDName)
If (Err.Number <> 0) Then' 是否出错
'Response.Write "错误: 创建Web虚拟目录的ADSI操作失败！<br>"
CreateWebVDir=0
Exit Function
End If
' 配置虚拟目录
VDirObj.Path = VDir
VDirObj.AccessRead = True
VDirObj.AccessWrite = False
VDirObj.EnableDefaultDoc=True
VDirObj.SetInfo
' 成功了！
Set VDirObj=Nothing
Set ServerObj=Nothing
CreateWebVDir=1
End Function
----
網易之左右無人给我留言为了与更多的朋友交流，我已申请脚本技术版版卒 |
|