先在IIS上导出配置文件为iis.xml，然后再创建一个asp文件，代码如下: 

  1. <%option explicit 
  2. dim fso 
  3. Set FSO = Server.CreateObject("Scripting.FileSystemObject")  
  4. dim ts 
  5. Set ts = fso.OpenTextFile(server.MapPath("iis.xml"),1)  '修改此处的iis备份文件名即可,同目录下哦 
  6. dim content 
  7. content= ts.ReadAll 
  8. content=split(content,"<IIsWebServer") 
  10. function getdomain(str) 
  11. dim reg,readstr,matches,match1 
  12. set reg=new Regexp 
  13. reg.Multiline=True 
  14. reg.Global=false
  15. reg.IgnoreCase=true
  16. reg.Pattern="ServerComment(.*)\s"
  17. Set matches = reg.execute(str) 
  18.   For Each match1 in matches 
  19.    readstr=match1.Value 
  20.   Next 
  21. Set matches = Nothing 
  22. Set reg = Nothing 
  23. getdomain=replace(readstr,"ServerComment=","") 
  24. getdomain=replace(getdomain,"""","") 
  25. end function
  27. function GetKey(HTML,Start,Last)  
  28. dim filearray,filearray2 
  29. filearray=split(HTML,Start)  
  30. filearray2=split(filearray(1),Last)  
  31. GetKey=filearray2(0)  
  32. End function
  34. function Clear(content) 
  35. dim arr,i 
  36. arr=split(content,":") 
  38. for i=0 to ubound(arr) 
  39. if instr(arr(i),".")>0 then 
  40. Clear=Clear & arr(i) 
  41. end if
  42. next 
  43. end function
  45. response.Clear() 
  46. dim i 
  47. for i=0 to ubound(content) 
  48. if instr(content(i),"ServerBindings")>0 then 
  49. response.Write (i)&" 描述："&getdomain(content(i))&"<br>主机头："&Clear(GetKey(content(i),"ServerBindings=""",""""))&"<br><br>"
  50. end if
  51. next 
  52. %> 
    把这个如保存为iis.asp，那个要把iis.asp与iis.xml放在同一个站点目录下并同级，然后
    执行iis.asp就可以了