用ADSI+ASP添加IP到IIS禁止访问列表中

注意：执行的ASP文件需要管理员权限

1. <%@ Language=VBScript %>
2. <%
3. Dim strIP
4. strIP = request("IP")
5. %>
6. <FORM action=? method=post>
7. 输入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP">
8. <input type="submit" value="确定发送">
9. </FORM> 
10. <%
11. if strIP="list" then
12.     Call ListDenyIP("2443")
13.     response.end
14. end if
15. if strIP="query" then
16.     Call CheckWebSiteSetup
17.     response.end
18. end if
20. if strIP<>"" then
21.     Call AddDenyIP("2443",strIP)
22. end if
23. Sub CheckWebSiteSetup()
24.     Set IISOBJ=GetObject("IIS://LocalHost/W3SVC")
25.     for each website in IISOBJ 
26.     if website.Class="IIsWebServer" then
27.     for each b in website.ServerBindings
28.     response.write ("Server "&Website.AdsPath" has binding"&b)
29.     response.write ("<br>")
30.     next
31.     end if
32.     next
33. end sub
35. Sub ListDenyIP(strWebNo)
36.     set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root") 
37.     set MyIPSec = SecObj.IPSecurity
38.     IPList=MyIPSec.IPDeny
39.     if ubound(IPList)<0 then
40.         response.write "<BR>无数据，请先随便加一条<BR>"
41.         exit sub
42.     end if
44.     intIPListCount=ubound(IPList)+1
46.     for i=0 to ubound(IPList)
47.         response.write i+1
48.         response.write "："
49.         response.write IPList(i)
50.         response.write "<br>"
51.     next
52. end sub
53. Sub AddDenyIP(strWebNo,strDenyIp)
54.     set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root") 
55.     set MyIPSec = SecObj.IPSecurity
56.       ' Make sure GrantByDefault=TRUE or your changes will not count.  
57.     If (FALSE = MyIPSec.GrantByDefault) Then 
58.         Response.Write "<BR>GrantByDefault was not TRUE. Setting to TRUE.<BR>" 
59.         MyIPSec.GrantByDefault = TRUE 
60.     End If 
61.     
62.     IPList=MyIPSec.IPDeny
63.     if ubound(IPList)<0 then
64.         response.write "<BR>无数据，请先随便加一条<BR>"
65.         exit sub
66.     end if
68.     intIPListCount=ubound(IPList)+1
70.     for i=0 to ubound(IPList)
71.         if strDenyIp = left(IPList(i),len(strDenyIp)) then
72.             response.write "<BR>重复数据。<BR>"
73.             exit sub
74.         end if
75.     next
76.     redim Preserve IPList(intIPListCount)
77.     IPList(intIPListCount)=strDenyIp
78.     
79.         response.write "新添加："
80.         response.write strDenyIp
81.         response.write "<br>"
82.     MyIPSec.IPDeny = IPList
83.     SecObj.IPSecurity = MyIPSec 
84.     SecObj.Setinfo
85. end sub
86. %>