快！快！！ 大家帮忙看看这句是什么意思（ Set WWWServer = GetObject("IIS://localhost/W3SVC") ）

[linanwang]

Dim oComputer
Dim WWWServer, ServerObj, Bindings, Binding, i, DomainArr
oComputer="localhost"
Err.Clear
Set WWWServer = GetObject("IIS://" & oComputer & "/W3SVC")
If Err.Number <> 0 Then
ErrMsg = "无权限操作站点"
' ErrCode = "0x80002"
Exit Function
End If
For Each ServerObj In WWWServer
If ServerObj.Class = "IIsWebServer" Then
Bindings = ServerObj.ServerBindings
For i = 0 To UBound(Bindings)
Binding = Bindings(i)
DomainArr = Split(Binding, ":")
If LCase(DomainArr(2)) = LCase(Domain) Then
GetSiteAdsPath = ServerObj.AdsPath
Exit Function
End If
Next
End If
Next

[li_ping]

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

[linanwang]

噢
您再具体一些：什么服务：干什么用的

[笨笨兔兔兔兔兔]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/4af7b130-7767-404a-b970-41219a53ac68.asp

[笨笨兔兔兔兔兔]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/425ff52d-9998-44a9-95dd-b46b2e390db8.asp

[linanwang]

to liuxiaoyi666(兔子)

你是女生吗(猜错了您千万别怪我) 居然有这么高的等级 好佩服呀
谢谢你

[笨笨兔兔兔兔兔]

比我等级高的MM挺多的,我是男的

[笨笨兔兔兔兔兔]

其实adsi有很多东东的,还可以做很多事情的*^_^*

[VBDN]

收集