|
马上注册成为ROSABC会员,随时发帖回复。
您需要 登录 才可以下载或查看,没有账号?会员注册
x
脚本如下:
#自动获取QQ服务器IP地址
#QQ服务器域名关键字,多个关键字之间用逗号分隔
:set QQ-STR "tencent,QQtcp"
#QQ地址列表名
:set QQ-LST "D-DST"
#取得DNS缓存的A记录
:set id [/ip dns cache all find type=A]
#对记录进行分析
:foreach i in=$id do={
#取得域名
:set dom [/ip dns cache all get $i name]
:set fond "no"
#判断域名中是否有指定的关键字
:foreach k in=$QQ-STR do={
:if([:find $dom $k]!=[:nothing]) do={:set fond "yes"}
}
#找到关键字的话,就把IP地址保存在指定地址列表中
:if($fond="yes") do={
/ip firewall address-list add list=$QQ-LST disabled=no address=[/ip dns cache all get $i data]
}
}
#清除缓存,以便寻找新的IP
/ip dns cache flush
可以从DNS里面提起QQ的服务IP么 |
|