##脚本自动将/ip firewall nat中注释为指定外网线路名的规则的src-nat伪装的IP地址更改为注释线路的公网IP
##脚本写时主要用于做ADSL上传，光纤下载这种特殊场合的应用
:local nowAdd
:local oldAdd
:for i from=1 to=20 do={
:if ([/ip address find interface=("pppoe-out" . $i)] != "") do={
:set nowAdd [/ip address get [/ip address find interface=("pppoe-out" . $i)] address]
:set nowAdd [:pick $nowAdd 0 [:find $nowAdd "/"] ]
:set oldAdd [/ip firewall nat get [/ip firewall nat find comment=("pppoe-out" . $i)] to-address]
if ($oldAdd != "") do={
if ($oldAdd != $nowAdd) do={
/ip firewall nat set [/ip firewall nat find comment=("pppoe-out" . $i)] to-address=$nowAdd
:log info message=( "pppoe-out" . $i . "更换新的IP 地址:" . $oldAdd . " ==>> " . $nowAdd)
}
}
}
}