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

ByVal WWWSiteName As String) As Boolean

Dim i As Integer

CreateVirtualDir = True

@#取得W3SVC服务

Dim WWWServer As ActiveDs.IADs

Dim WWWService

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

i = 1

Dim HandleSameCase As Boolean

HandleSameCase = True

Dim temp As Boolean

temp = False

For Each WWWServer In WWWService

WWWServer = Nothing

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

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

temp = True

Exit For

End If

i = i + 1

Next

If Not temp Then

CreateVirtualDir = False

Exit Function

End If

Dim WWWVirtualDir, WWWIF As ActiveDs.IADs

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