帮忙看下这个脚本有什么问题吗

paololiu

要禁QQ,所以找了个脚本来收集QQ的IP,发现刚开始还蛮正常的,后面好多的IP都无法收集了

1. #自动获取QQ服务器IP地址
   
2. #QQ服务器域名关键字,多个关键字之间用逗号分隔
   
3. :set QQ-STR "tencent,qq"
   
4. #QQ地址列表名
   
5. :set QQ-LST "qq"
   
6. #取得DNS缓存的A记录
   
7. :set id [/ip dns cache all find type=A]
   
8. #对记录进行分析
   
9. :foreach i in=$id do={
   
10. #取得域名
    
11.   :set  dom [/ip dns cache all get $i name]
    
12.   :set fond "no"
    
13. #判断域名中是否有指定的关键字
    
14.   :foreach k in=$QQ-STR do={
    
15.     :if([:find $dom $k]!=[:nothing]) do={:set fond "yes"}
    
16.     }
    
17. #找到关键字的话，就把IP地址保存在指定地址列表中
    
18.   :if($fond="yes") do={
    
19.     /ip firewall address-list add list=$QQ-LST disabled=no address=[/ip dns cache all get $i data]
    
20.     }
    
21.   }
    
22. #清除缓存,以便寻找新的IP
    
23. /ip dns cache flush

复制代码

WGHBOY

qq也封呀,很难活了

qbs315

晕，Q也封啊。