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

''******************************************************************************

Function CreateWebServer(WRoot,WComment,WPort,ServerRun)

On Error Resume Next

Dim ServiceObj,ServerObj,VDirObj

Set ServiceObj = GetObject("IIS://"&oComputer&"/W3SVC")'' 首先创建一个服务实例

WNumber=1

Do While IsObject(ServiceObj.GetObject("IIsWebServer",WNumber))

If Err.number<>0 Then

Err.Clear()

Exit Do

End If

WNumber=WNumber+1

Loop

Set ServerObj = ServiceObj.Create("IIsWebServer", WNumber)'' 然后创建一个WEB服务器

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

''Response.Write "错误: 创建Web服务器的ADSI操作失败！"

CreateWebServer=0

Exit Function

End If

'' 接着配置服务器

ServerObj.ServerSize = 1 '' 中型大小

ServerObj.ServerComment = WComment ''说明

ServerObj.ServerBindings = WPort ''端口