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 
%>

标签:ADSI,ASP,IP,IIS
0
投稿

猜你喜欢

  • 利用Python复制文件的9种方法总结

    2022-06-25 15:00:27
  • 记得使用try+catch

    2010-01-29 12:48:00
  • 精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换

    2024-01-15 18:21:30
  • 使用wxpy实现自动发送微信消息功能

    2022-04-01 21:16:06
  • phpcms手机内容页面添加上一篇和下一篇

    2024-05-11 09:54:05
  • Python绘制词云图之可视化神器pyecharts

    2023-02-23 01:35:25
  • 微信小程序转化为uni-app项目的方法示例

    2024-03-23 19:34:39
  • 520使用Python实现“我爱你”表白

    2022-07-16 05:25:47
  • iframe高度自适应,兼容IE,FF

    2008-06-18 12:15:00
  • Vue element-ui表格内嵌进度条功能实现方法

    2024-05-28 15:51:59
  • SQL Server中字符串函数的用法详解

    2024-01-14 05:42:56
  • Python使用smtp和pop简单收发邮件完整实例

    2022-01-07 05:48:40
  • MySQL 全文索引的原理与缺陷

    2024-01-16 18:54:16
  • 当前流行的JavaScript代码风格指南

    2024-04-22 13:10:08
  • ElementUI嵌套页面及关联增删查改实现示例

    2023-07-02 16:54:45
  • 详解python函数传参传递dict/list/set等类型的问题

    2021-09-29 16:12:38
  • Python计算多幅图像栅格值的平均值

    2021-03-28 01:41:05
  • 系统高吞吐量下的数据库重复写入问题分析解决

    2024-01-17 07:37:21
  • python中的argparse基本用法(使用步骤)

    2023-06-12 20:01:36
  • Python OpenCV实现识别信用卡号教程详解

    2021-08-12 03:50:27
  • asp之家 网络编程 m.aspxhome.com