'代碼開始

　　Set fileobj=CreateObject("Scripting.filesystemobject")
　　logfilepath="E:w3logW3SVC237ex070512old.log" '注意指定受攻擊網(wǎng)站的日志路徑。
　　'如果是虛擬主機，要查是哪個網(wǎng)站受攻擊，可以查看：C:WINDOWSsystem32LogFilesHTTPERR ，

　　根據(jù)錯誤日志很容易分析出來。
　　writelog "netsh ipsec static add policy name=XBLUE"
　　writelog "netsh ipsec static add filterlist name=denyip"

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

　　'程序功能：把logfiles中的ＩＰ提取成ipsec需要的過濾格式，導入ipsec中過濾。適合某個網(wǎng)站受大量ＣＣ攻擊的情況。

　　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=overipnewip
　　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

　　'代碼結束