ADSI+ASP添加IP到IIS禁止访问列表中
来源:asp之家 时间:2011-04-02 10:42:00
代码如下:
<%@ Language=VBScript %>
<%
Dim strIP
strIP = request("IP")
%>
<FORM action=? method=post>
输入IP:<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP">
<input type="submit" value="确定发送">
</FORM>
<%
if strIP="list" then
Call ListDenyIP("2443")
response.end
end if
if strIP="query" then
Call CheckWebSiteSetup
response.end
end if
#
if strIP<>"" then
Call AddDenyIP("2443",strIP)
end if
Sub CheckWebSiteSetup()
Set IISOBJ=GetObject("IIS://LocalHost/W3SVC")
for each website in IISOBJ
if website.Class="IIsWebServer" then
for each b in website.ServerBindings
response.write ("Server "&Website.AdsPath" has binding"&b)
response.write ("<br>")
next
end if
next
end sub
#
Sub ListDenyIP(strWebNo)
set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root")
set MyIPSec = SecObj.IPSecurity
IPList=MyIPSec.IPDeny
if ubound(IPList)<0 then
response.write "<BR>无数据,请先随便加一条<BR>"
exit sub
end if
#
intIPListCount=ubound(IPList)+1
#
for i=0 to ubound(IPList)
response.write i+1
response.write ":"
response.write IPList(i)
response.write "<br>"
next
end sub
Sub AddDenyIP(strWebNo,strDenyIp)
set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root")
set MyIPSec = SecObj.IPSecurity
' Make sure GrantByDefault=TRUE or your changes will not count.
If (FALSE = MyIPSec.GrantByDefault) Then
Response.Write "<BR>GrantByDefault was not TRUE. Setting to TRUE.<BR>"
MyIPSec.GrantByDefault = TRUE
End If
IPList=MyIPSec.IPDeny
if ubound(IPList)<0 then
response.write "<BR>无数据,请先随便加一条<BR>"
exit sub
end if
#
intIPListCount=ubound(IPList)+1
#
for i=0 to ubound(IPList)
if strDenyIp = left(IPList(i),len(strDenyIp)) then
response.write "<BR>重复数据。<BR>"
exit sub
end if
next
redim Preserve IPList(intIPListCount)
IPList(intIPListCount)=strDenyIp
response.write "新添加:"
response.write strDenyIp
response.write "<br>"
MyIPSec.IPDeny = IPList
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
end sub
%>


猜你喜欢
利用Python复制文件的9种方法总结

记得使用try+catch
精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换
使用wxpy实现自动发送微信消息功能

phpcms手机内容页面添加上一篇和下一篇
Python绘制词云图之可视化神器pyecharts

微信小程序转化为uni-app项目的方法示例

520使用Python实现“我爱你”表白

iframe高度自适应,兼容IE,FF
Vue element-ui表格内嵌进度条功能实现方法

SQL Server中字符串函数的用法详解
Python使用smtp和pop简单收发邮件完整实例
MySQL 全文索引的原理与缺陷
当前流行的JavaScript代码风格指南
ElementUI嵌套页面及关联增删查改实现示例

详解python函数传参传递dict/list/set等类型的问题
Python计算多幅图像栅格值的平均值
系统高吞吐量下的数据库重复写入问题分析解决
python中的argparse基本用法(使用步骤)

Python OpenCV实现识别信用卡号教程详解
