Use ADSI + ASP to add IP addresses to the IIS Access prohibited list

Note: administrator permissions are required for the ASP file to be executed.

 

1. <% @ Language = VBScript %>
2. <%
3. Dim strip
4. Strip = request ("ip ")
5. %>
6. <Form action =? Method = post>
7. Input IP address: <input type = text value = "<% = strip %>" style = "border: # aaaaaa 1px solid;" name = "ip">
8. <Input type = "Submit" value = "confirm to send">
9. </Form>
10. <%
11. If strip = "list" then
12. Call listdenyips ("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> no data, please add one <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
62. Iplist = myipsec. ipdeny
63. If ubound (iplist) <0 then
64. Response. Write "<br> no data, please add one <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> duplicate data. <Br>"
73. Exit sub
74. End if
75. Next
76. Redim preserve iplist (intiplistcount)
77. Iplist (intiplistcount) = strdenyip
79. Response. Write "added :"
80. Response. Write strdenyip
81. Response. Write "<br>"
82. Myipsec. ipdeny = iplist
83. Secobj. ipsecurity = myipsec
84. Secobj. setinfo
85. End sub
86. %>