用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中的ｉｐ提取成ipsec需要的过滤格式，导入ipsec中过滤。适合某个网站受大量ｃｃ攻击的情况。

　　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所需要的策略文件，直接双击运行即可。