一个自动彻换IP的脚本

一个自动彻换IP的脚本.....

system script add name="getadsl" source={
:local assign-address
:local new-address
:local status
:local x
:set x 2
:for i from=1 to=$x do={
    :set status [/interface get [/interface find  name=("pppoe-out" . $i)] running] 
    :if ($status=true) do={:set assign-address [:pick $assign-address 0 ([:len $assign-address] -3)]
        :if ($assign-address != $new-address) do={ \
        /ip address set [/ip address find comment=$i] address=$new-address network=$new-address broadcast=$new-address
        /ip route set [/ip route find comment=$i] gateway=$new-address
       } 
   }
}

/system  scheduler add name="getadsl" on-event="getadsl"  interval=15s


这样就可以实现ADSL IP变动后,自动更改网关和路由表.