如何用vbscript来添加ip策略自动封IP-创新互联
本篇内容介绍了“如何用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所需要的策略文件,直接双击运行即可。
“如何用vbscript来添加ip策略自动封IP”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!
分享名称:如何用vbscript来添加ip策略自动封IP-创新互联
标题路径:http://pwwzsj.com/article/dsocic.html