本文介绍使用ASP、VB、VBScript列出IIS服务器上所有WEB站点信息
'=============================================================
'函数介绍：列出当前服务器WEB站点信息
'本函数使用ADSI，需要Administrators组用户权限
'函数名称：ListWebSite (Computer,Num)
'用法：ListWebSite (计算机名称,显示站点数量)
'例：显示127.0.0.1计算机上1000个站点信息
'ListWebSite "127.0.0.1","1000"
'=============================================================
Function ListWebSite(Computer,Num)
On Error Resume Next
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&i)
for i=0 to Num
Err.Clear
if Err.Number=0 then
response.write "

以下显示为计算机："&Computer&"上所有站点信息"
ShowWebSite = SiteObj.Get("ServerBindings") '获得站点IP地址:端口:主机头
Info=split(ShowWebSite(0),":")
response.write "站点编号："&i&" "
response.write "站点IP地址："&Info(0)&" "
response.write "站点端口："&Info(1)&" "
response.write "站点主机头："&Info(2)&" "
end if
next
set SiteOjb=nothing
End Function