获取IIS虚拟网站信息的工具
工具适用人群：获取服务器或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