:global ddnsuser "USUARIO_DE_DYNDNS"
:global ddnspass "PASS_DYNDNS"
:global theinterface "OJO_NOMBRE_DE_INTERFAZ_INTERNET"
:global ddnshost EJEMPLO.dyndns.org

:global ipddns [:resolve $ddnshost];
:global ipfresh [ /ip address get [/ip address find interface=$theinterface ] address ]
:if ([ :typeof $ipfresh ] = nil ) do={
   :log warning ("DynDNS: No hay ip address en $theinterface .")
} else={
   :for i from=( [:len $ipfresh] - 1) to=0 do={ 
      :if ( [:pick $ipfresh $i] = "/") do={ 
    :set ipfresh [:pick $ipfresh 0 $i];
      } 
}
 
:if ($ipddns != $ipfresh) do={
    :log warning ("DynDNS: IP-en-DynDNS = $ipddns")
    :log warning ("DynDNS: IP-Actual = $ipfresh")
   :log error "DynDNS: Necesita actualizar IP , Enviando UPDATE de IP...!"
   :global str "/nic/update\?hostname=$ddnshost&myip=$ipfresh&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG"
   /tool fetch address=members.dyndns.org src-path=$str mode=http user=$ddnsuser \
         password=$ddnspass dst-path=("/DynDNS.".$ddnshost)
    :delay 1
    :global str [/file find name="DynDNS.$ddnshost"];
    /file remove $str
    :global ipddns $ipfresh
  :log error "DynDNS: IP actualizada a $ipfresh!"
    } else={
     :log warning "DynDNS: No necesita cambiar la ip";
    }
}