工具适用人群：获取服务器或webshell权限后，想知道服务器上到底有哪些虚拟网站，这些网站的域名什么，网站绑定的端口，该网站是否停用，网站的物理路径是什么，网站的有哪些虚拟目录，虚拟目录的名字和物理路径是什么
该工具并非完全原创，在前人的基础上，参照adsutil.vbs修改而成
使用说明：cscript GetWebinfo.vbs

代码保存为GetWebinfo.vbs：

On Error Resume Next
WScript.Echo "*******************GetIISInfo   msn:slls124@gmail.com*******************"
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  "[Host ] " & Binds
   WScript.Echo  "[User ] " & OService.AnonymousUserName
   WScript.Echo  "[Pass ] " & 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