关于ADSI操作IIS的问题

wanghuirui 2005-08-30 05:20:49

我在VB做了一个类，

'**********************************************************************************
'判断绑定是否存在 0表示不存在 1表示有相同的站点说明 2表示有相同的站点站点绑定
'调用示例：siteexist(域名)
'**********************************************************************************
Public Function siteexist(ByVal domain As String) As String '判断是否已有绑定相同
On Error Resume Next
Dim obj, webobj, vdirobj 'obj:服务实例 webobj:web服务器
Set obj = GetObject("IIS://localhost/W3SVC") ' 首先创建一个服务实例
For Each site In obj
If site.Class = "IIsWebServer" Then
Set webobj = GetObject(site.AdsPath)

If UCase(webobj.Get("ServerComment")) = UCase(domain) Then '先判断是否有相同的站点说明
siteexist = 1
Set webobj = Nothing
Set obj = Nothing
Exit Function '退出循环
End If

For I = 0 To UBound(webobj.Get("ServerBindings"))
If UCase(webobj.Get("ServerBindings")(I)) = UCase(":80:" + domain) Then '先判断是否有相同的站点绑定
siteexist = 2
Set webobj = Nothing
Set obj = Nothing
Exit Function '退出循环
End If
Next

End If
Next
Set webobj = Nothing
Set obj = Nothing

siteexist = 0 '预设为不存在没有相同绑定
End Function

VB调用时当domain不存在于IIS中，则返回结果正确，而在ASP中调用时总是返回1，请大家告诉我怎么办

...全文