当前位置:DOS资源站资料中心VBS脚本 → 列出IIS的站点ID、描述、及物理目录

列出IIS的站点ID、描述、及物理目录

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-4-15 22:15:28

Set ObjService=GetObject("IIS://LocalHost/W3SVC")
 For Each obj3w In objservice
  If IsNumeric(obj3w.Name) Then
   sServerName=Obj3w.ServerComment
   Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")
   ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf

   End If
 Next
 WScript.Echo ListAllWeb
 Set ObjService=Nothing
WScript.Quit