用ASP.NET（VB版）创建WINDOWS 2000 SERVER站点

WWWService = GetObject("IIS://" & ComputerName & "/W3SVC")

i = 1

HandleSameCase = True

On Error GoTo ErrWouldDo

@#在IIS中查找每一个WEB站点

For Each WWWServer In WWWService

WWWServer = Nothing

WWWServer = GetObject("IIS://" & ComputerName & "/W3SVC/" & i)

@#Debug.Print WWWServer.ServerComment

@#如果在安装时系统中已经有了要加的站点，则要先删除干净

If UCase(WWWServer.ServerComment) = UCase(WWWSiteName) Then

WWWService.Delete("IISWebServer", i) @#再删除

Exit For

End If

ReDim TCPPort(1)

TCPPort(0) = ""

TCPPort = WWWServer.Serverbindings

@#如果端口已经有了则也要先删除

If TCPPort(0) = ":" & WWWTCPPort & ":" Then

WWWService.Delete("IISWebServer", i) @#删除

Else

i = i + 1

End If

Next