linanwang 2005年03月22日
快!快!! 大家帮忙看看这句是什么意思( Set WWWServer = GetObject("IIS://localhost/W3SVC") )
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
...全文
167 点赞 收藏 8
写回复
8 条回复

还没有回复,快来抢沙发~

发动态
发帖子
网络编程
创建于2007-09-28

1145

社区成员

1.8w+

社区内容

VB 网络编程
社区公告
暂无公告