批量导出/读取IIS域名

比如服务器有300多个站点时，不可能一个一个检查吧，上网搜了下，有个程序稍合适，但导出的是网站域名站点名，我修改为导出域名列表，同时解决了导出一个站点绑定多个域名的问题，更适合自己的应用，原程序无从考究出处，本着开源原则，现把修改后的源码放出来，希望能对大家有用。
使用方法：
1、在IIS中导出xml配置文件。可参考下面图片。在网站点右键，选择所有任务，选择保存至一个文件，例如存为iis.xml。


 

2、把下面程序复制到记事本后，保存为一个asp文件，例iis.asp，然后放在网站一个有执行脚本权限的目录即可执行。同时需要把刚才导出的xml文件放在同一目录下。
<%option explicit
dim fso
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dim ts
Set ts = fso.OpenTextFile(server.MapPath("iis.xml"),1)  '修改此处的iis备份文件名即可,同目录下哦
dim content
content= ts.ReadAll
content=split(content,"<IIsWebServer")
function getdomain(str)
dim reg,readstr,matches,match1
set reg=new Regexp
reg.Multiline=True
reg.Global=false
reg.IgnoreCase=true
reg.Pattern="ServerComment(.*)\s"
Set matches = reg.execute(str)
  For Each match1 in matches
   readstr=match1.Value
  Next
Set matches = Nothing
Set reg = Nothing
getdomain=replace(readstr,"ServerComment=","")
getdomain=replace(getdomain,"""","")
end function
function GetKey(HTML,Start,Last)
dim filearray,filearray2
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End function
function Clear(content)
dim arr,i
arr=split(content,":")
for i=0 to ubound(arr)
if instr(arr(i),".")>0 then
Clear=Clear & arr(i)
end if
next
end function
response.Clear()
dim i
for i=0 to ubound(content)
if instr(content(i),"ServerBindings")>0 then
response.Write (i)&" 描述："&getdomain(content(i))&"<br>主机头："&Clear(GetKey(content(i),"ServerBindings=""",""""))&"<br><br>"
end if
next
%>
备注：逍遥复仇的服务器可能是哪里做了安全设置，无法打开，其实我们可以利用黑客入侵时的旁注这招，去旁注站或用工具查然后再导都可以，比如新出的这款御剑，如图：

选择微软必应比较准确，当然这种方法必须要被搜索引擎收录（没有第一种方法全），如果刚刚绑定的站就查不出来
本文来源于：逍遥复仇