Скрипт DynDNS, который действительно работает?

Этот скрипт работает с моим rb951G-2hnd. Задайте нужные переменные:  
:local username “escribe-tu-usuario-user”  
:local password “put-password-here”  
:local hostname “putyour-hostname-here.dlinkddns.com”  
:global systemname [/system identity get name]

:if ($systemname = “Site1”) do={ :set hostname “yourdomain1.dyndns.org” }  
:if ($systemname = “Site2”) do={ :set hostname “yourdomain2.dyndns.org” }  
:if ($systemname = “Site3”) do={ :set hostname “yourdomain3.dyndns.org” }  

:global dyndnsForce  
:global previousIP  

Выводим немного отладочной информации:  
:log info (“UpdateDynDNS: username = $username”)  
:log info (“UpdateDynDNS: password = $password”)  
:log info (“UpdateDynDNS: hostname = $hostname”)  
:log info (“UpdateDynDNS: previousIP = $previousIP”)  

Получаем текущий IP-адрес из интернета (на случай двойного NAT)  
/tool fetch mode=http address=“checkip.dyndns.org” src-path=“/” dst-path=“/dyndns.checkip.html”  
:local result [/file get dyndns.checkip.html contents]

Разбираем полученный IP:  
:local resultLen [:len $result]
:local startLoc [:find $result ": " -1]
:set startLoc ($startLoc + 2)  
:local endLoc [:find $result “” -1]
:local currentIP [:pick $result $startLoc $endLoc]
:log info “UpdateDynDNS: currentIP = $currentIP”  

Уберите знак # в следующей строке, чтобы принудительно обновлять каждый раз — удобно для отладки, но можно попасть в черный список DynDNS!  
#:set dyndnsForce true  

Определяем, нужно ли обновлять dyndns (подробнее про запросы обновления есть на Perform Update - Dyn):  
:if (($currentIP != $previousIP) || ($dyndnsForce = true)) do={  
:set dyndnsForce false  
:set previousIP $currentIP  
/tool fetch user=$username password=$password mode=http address=“members.dyndns.org” src-path=“/nic/update?hostname=$hostname&myip=$currentIP” dst-path=“/dyndns.txt”  
:local result [/file get dyndns.txt contents]
:log info (“UpdateDynDNS: Dyndns update needed”)  
:log info ("UpdateDynDNS: Dyndns Update Result: ".$result)  
:put ("Dyndns Update Result: ".$result)  
} else={  
:log info (“UpdateDynDNS: No dyndns update needed”)  
}

Этот скрипт поддерживает несколько интерфейсов, динамические интерфейсы и даже более одного DNS-записи на интерфейс. Пользуюсь им уже несколько лет.

:local ifs {"ppp1";"wan1";"wan1"};
:local hostnames {"a.homeip.net";"b.homeip.net";"c.homeip.net"};
:local user "your-account-name";
:local password "your-password";

:foreach k,v in=$ifs do={
   :local if [/ip address find interface="$v"];
   :if ($if="") do={
       :log info "DynDNS: Интерфейс '$v' недоступен";
   } else={
       :local newip [/ip address get $if address];
       :if ([:typeof $newip]=nil) do={
           :log info "DynDNS: Нет IP-адреса на интерфейсе '$v'";
       } else={
           :set newip [:pick $newip 0 [:find $newip "/"]];
           :local oldip [:resolve ($hostnames->$k)];
           :local hostname ($hostnames->$k);
           :if ($newip!=$oldip) do={
               :log info "DynDNS: IP адрес изменён для '$hostname/$v': $oldip -> $newip";
               /tool fetch user=$user password=$password keep-result=no \
               url="http://members.dyndns.org/nic/update\?hostname=$hostname&myip=$newip&wildcard=NOCHG&mx=NOCHG&backm­x=NOCHG";
           } else={
               :log info "DynDNS: IP адрес не изменился для '$hostname/$v': $oldip";
           }
       }
   }
}