本文介绍使用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 NextSet SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&i)for i=0 to NumErr.Clearif Err.Number=0 thenresponse.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 ifnextset SiteOjb=nothingEnd Function