用ASP编程控制在IIS建立Web站点

ServerObj.EnableDefaultDoc=True

'' 提交信息

ServerObj.SetInfo

'' 最后，建立虚拟目录

Set VDirObj = ServerObj.Create("IIsWebVirtualDir", "ROOT")

If (Err.Number <> 0) Then'' 是否出错

''Response.Write "错误: 创建虚拟目录的ADSI操作失败！"

CreateWebServer=0

Exit Function

End If

'' 配置虚拟目录

VDirObj.Path = WRoot

VDirObj.AccessRead = True

VDirObj.AccessWrite = True

VDirObj.EnableDirBrowsing = False

VDirObj.EnableDefaultDoc=True

VDirObj.AccessScript=True

VDirObj.AppCreate2 2

VDirObj.AppFriendlyName="默认应用程序"

VDirObj.SetInfo

If ServerRun = True Then

ServerObj.Start

If (Err.Number <> 0) Then '' Error！

''Response.Write "错误: 起动服务器时出错！请手动启动WebServer "&WComment&"！

"

CreateWebServer=2

Exit Function

End If

End If

Set VDirObj=Nothing

Set ServerObj=Nothing

Set ServiceObj=Nothing

CreateWebServer=1

End Function