创建一个WebServer
必须参数WRoot为创建站点的物理目录WComment为站点说明WPort为站点端口ServerRun为是否自动运行&n
bsp;
当创建成功时返回失败时提示退出并返回当创建站点成功但启动失败时返回
**************************************
******************注意WPort为List类型意为服务器端口***************
本函数在IIS上通过＊＊必须以管理员身份登录＊＊
端口举例
Dim WPortbindlistscreateflagoComputer
oComputer=LocalHost
binglists=Array()
binglists()=::端口号为
WPort=binglists
createflag=CreateWebServer(D:\myweb我的家园WPortFalse)调用建站函数
If creatflag= Then
ResponseWrite 创建站点失败！请确定是否有权限
ElseIf createflag= Then
ResponseWrite 创建站点成功！
ElseIf createflag= Then
ResponseWrite 创建站点成功但启动站点失败可能端口沖突！
End If
**************************************
Function CreateWebServer(WRootWCommentWPortServerRun)
On Error Resume Next
Dim ServiceObjServerObjVDirObj
Set ServiceObj = GetObject(IIS://&oComputer&/WSVC) 首先创建一个服务实例
WNumber=
Do While IsObject(ServiceObjGetObject(IIsWebServerWNumber))
If Errnumber<> Then
ErrClear()
Exit Do
End If
WNumber=WNumber+
Loop
Set ServerObj = ServiceObjCreate(IIsWebServer WNumber) 然后创建一个WEB服务器
If (ErrNumber <> ) Then 是否出错
ResponseWrite 错误: 创建Web服务器的ADSI操作失败！
CreateWebServer=
Exit Function
End If
接着配置服务器
ServerObjServerSize = 中型大小
ServerObjServerComment = WComment 说明
ServerObjServerBindings = WPort 端口
ServerObjEnableDefaultDoc=True
提交信息
ServerObjSetInfo
最后建立虚拟目录
Set VDirObj = ServerObjCreate(IIsWebVirtualDir ROOT)
If (ErrNumber <> ) Then 是否出错
ResponseWrite 错误: 创建虚拟目录的ADSI操作失败！
CreateWebServer=
Exit Function
End If
配置虚拟目录
VDirObjPath = WRoot
VDirObjAccessRead = True
VDirObjAccessWrite = True
VDirObjEnableDirBrowsing = False
VDirObjEnableDefaultDoc=True
VDirObjAccessScript=True
VDirObjAppCreate
VDirObjAppFriendlyName=默认应用程序
VDirObjSetInfo
If ServerRun = True Then
ServerObjStart
If (ErrNumber <> ) Then Error！
ResponseWrite 错误: 起动服务器时出错！请手动启动WebServer &WComment&！
CreateWebServer=
Exit Function
End If
End If
Set VDirObj=Nothing
Set ServerObj=Nothing
Set ServiceObj=Nothing
CreateWebServer=
End Function
