ASP、VB、VBScript获取IIS站点列表


关键词

ASP、VB、VBScript获取IIS站点列表

摘要

本文介绍使用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

本文介绍使用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

 

要饭二维码

洪哥写文章很苦逼,如果本文对您略有帮助,可以扫描下方二维码支持洪哥!金额随意,先行谢过!大家的支持是我前进的动力!

文章的版权

本文属于“洪哥笔记”原创文章,转载请注明来源地址:ASP、VB、VBScript获取IIS站点列表:http://www.splaybow.com/post/asp-list-iis-website.html

如果您在服务器运维、网络管理、网站或系统开发过程有需要提供收费服务,请加QQ:115085382!十年运维经验,帮您省钱、让您放心!
亲,如果有需要,先存起来,方便以后再看啊!加入收藏夹的话,按Ctrl+D

« ASP、VB、VBScript启动/停止IIS站点 ASP、VB、VBScript删除指定IIS站点 »

相关文章: