VBS(ASP)获取IIS站点列表

下面是VBS代码,作为asp也可以使用,不过需要站点运行在管理员账户下。
程序代码 程序代码
On Error Resume Next
Set ObjService=GetObject("IIS://LocalHost/W3SVC")
For Each obj3w In objservice
If IsNumeric(obj3w.Name) Then
  Set OService=GetObject("IIS://LocalHost/W3SVC/" & obj3w.Name)
  Set VDirObj = OService.GetObject("IIsWebVirtualDir", "ROOT")
  If Err <> 0 Then
   WScript.Quit (1)
  end if
  WScript.Echo Chr(10) & "[" & OService.ServerComment & "]"  

        dim state
  state = CInt(OService.ServerState)
  if  state = 2 then
   WScript.Echo "[State] running"
  elseif state = 4 then
      WScript.Echo "[State] stoped"
  elseif state = 6 then
      WScript.Echo "[State] paused"
  end if

  For Each Binds In OService.ServerBindings
   WScript.Echo  "[主机端口: ] " & Binds
   WScript.Echo  "[用户名称: ] " & OService.AnonymousUserName
   WScript.Echo  "[用户密码: ] " & OService.AnonymousUserPass
  Next
   WScript.Echo    VDirObj.AdsPath & "   "  & VDirObj.Path    

  For Each ChildObject In VDirObj
   If (Err.Number = 0) Then
    WScript.Echo ChildObject.AdsPath &  "   "  & ChildObject.Path
   End If
        Next

end if
Next


用以上代码获取到站点ID之后可以用下面的代码针对站点进行修改。
例子中是修改站点主机头,修改其他参数可对照metabase.xml进行配置。
<%
Set objIIS=GetObject("IIS://localhost/w3svc/站点ID")
objIIS.ServerBindings=Split(":80:www.1.net|:80:www.1.org","|")
objIIS.SetInfo
set objIIS=nothing
%>


[本日志由 刚子 于 2013-09-10 08:19 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.