用vbscript来添加ip策略 自动封IP


程序主要是读取这个网站的iis日志,分析出其中的IP地址,用安全策略自动封闭。VBS代码如下:

复制代码 代码如下:

  '代码开始

  Set fileobj=CreateObject("Scripting.filesystemobject")
  logfilepath="E:w3logW3SVC237ex070512old.log" '注意指定受攻击网站的日志路径。
  '如果是虚拟主机,要查是哪个网站受攻击,可以查看:C:WINDOWSsystem32LogFilesHTTPERR ,

  根据错误日志很容易分析出来。
  writelog "netsh ipsec static add policy name=XBLUE"
  writelog "netsh ipsec static add filterlist name=denyip"

  overip=""
  f_name=logfilepath
  '指定日志文件

  '程序功能:把logfiles中的IP提取成ipsec需要的过滤格式,导入ipsec中过滤。适合某个网站受大量CC攻击的情况。

  set fileobj88=CreateObject("Scripting.FileSystemObject")
  Set MYFILE=fileobj88.OpenTextFile(f_name,1,false)
  contentover=MYFILE.ReadAll()
  contentip=lcase(contentover)
  MYFILE.close
  set fileobj88=nothing
  on error resume next
  myline=split(contentip,chr(13))
  for i=0 to ubound(myline)-1

  myline2=split(myline(i)," ")
  newip=myline2(6)
  '指定分离的标识字符串!
  if instr(overip,newip)=0 then '去除重复的IP。
  overip=overip&newip
  dsafasf=split(newip,".")
  if ubound(dsafasf)=3 then
  writelog "netsh ipsec static add filter filterlist=denyip srcaddr="&newip&" dstaddr=Me

  dstport=80 protocol=TCP"
  end if
  else
  wscript.echo newip &" is exits!"
  end if
  next
  writelog "netsh ipsec static add filteraction name=denyact action=block"
  writelog "netsh ipsec static add rule name=kill3389 policy=XBLUE filterlist=denyip

  filteraction=denyact"
  writelog "netsh ipsec static set policy name=XBLUE assign=y"


  Sub writelog(errmes) '导出IPsec的策略文件为一个bat文件。
  ipfilename="denyerrorip.bat"
  Set logfile=fileobj.opentextfile(ipfilename,8,true)
  logfile.writeline errmes
  logfile.close
  Set logfile=nothing
  End Sub

  '代码结束

  把上述代码存为一个.vbs文件,设置好其中日志的路径。双击运行即可,运行完毕后生成一个denyerrorip.bat文件,这个是ipsec所需要的策略文件,直接双击运行即可。



相关阅读:
innerText和innerHTML 一些问题分析
FreeBSD NTFS分区读写问题
PHP版国家代码、缩写查询函数代码
让Windows Server 2008系统安全更上一层楼
FreeBSD忘记root密码的一次修复
Prototype实战教程----5.$R
php 服务器调试 Zend Debugger 的安装教程
实现连缀调用的map方法(prototype)
Windows XP SP3中启用支持NLA的远程桌面
php fckeditor 调用的函数
一个封装的Ajax类
PHP-CGI进程CPU 100% 与 file_get_contents 函数的关系分析
Oracle数据库中Undo数据段的作用及类型
TCP/IP基础----为Linux网络做准备
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 参加经济师培训班培训体会 游九华山_关于描写九华山的小学生作文700字 2015公司端午节放假通知范本大全 假如明天没有痛苦 区开展党建创先争优工作总结报告 关于四川地震演讲稿:最近一直被感动着 小学三年级作文300字:寒假的两元钱 2011年2月13日今天去挑选婚纱礼服 社区免费体检通知 小学五年级作文600字:你还会觉得孤单吗? 台风“碧利斯”来了 说柳 永远永远都还是那句话:不要浪费爱,爱是会耗尽的。 经典中考祝福语 畜牧循环经济汇报材料 火和它的影子2 描写大雁的好句 记一次“故事大王”比赛作文600字 简述人生目的 想象力丰富的女孩学不好数学 长大 《戴着蝴蝶花的小女孩》读后感_650字 建立健全内控制度应先强化内部审计工作 七元素战神传奇预告——阿尔塞斯的回忆 夏天的颜色300字 小吃店食品安全承诺书 休闲食品巧经营 怀念的珍惜作文600字 触摸阳光的纯白... 2016~2016学年第二学期开学国旗下讲话发言稿 家在银滩 南阳玉雕产业的现状与发展研究 小学班主任新年致辞 送裴秀才归淮南 当逝去了的作文400字 富春至严陵山水甚佳 纪昀_富春至严陵山水甚佳 赏析 那件疯狂的小事叫爱情 初中初二作文1200字:我愿我是个男孩 凤凰涅盘 浴火重生 关于元旦的三句半 小学五年级作文1000字:孤单日期 论我市以创业带动就业的新思路 消化科医疗组长竞聘演讲稿 父亲节必备祝福短信 辛弃疾《水调歌头·千里渥洼种》 《你在为谁读书》读后感(2)作文800字 优秀大学生入党申请书例文 忘不了的爱 立体构成实验报告 中学老师杀害了三毛

Copyright © 2016 phpStudy |