Скрипт DynDNS MikroTik Router OS 6

Данный скрипт неактулен, так как DynDns стал платным и появился Mikrotik DDNS

Заходим в System / Scripts.  Добавляем новый скрипт. Назовем “dyndns”, название пригодится в планировщике.

:local username "USERNAME"
:local password "PASSWORD"
:global hostname "DYNDNS_ADDRESS" 

:global dyndnsForce
:global previousIP
:local resolvedIP [:resolve $hostname]

#print some debug
#:log info ("UpdateDynDNS: username = $username")
#:log info ("UpdateDynDNS: password = $password")
:log info ("UpdateDynDNS: hostname = $hostname")
:log info ("UpdateDynDNS: previousIP = $previousIP")
:log info ("UpdateDynDNS: resolvedIP = $resolvedIP")

# get the current IP address from the internet (in case of double-nat)
/tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"
:local result [/file get dyndns.checkip.html contents]

# parse the current IP result
: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"

# Remove the # on next line to force an update every single time - useful for debugging,
# but you could end up getting blacklisted by DynDNS!
# Edit: Not really needed anymore... the result is not equal... Update will happen.

#:set dyndnsForce true

# Determine if dyndns update is needed
# more dyndns updater request details http://www.dyndns.com/developers/specs/syntax.html
#This is where we check the DNS record against actual result. Thanks to jimstolz76
:if (($currentIP != $resolvedIP) || ($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 ("Update Result: " . $result)
  :put ("Dyndns Update Result: " . $result)
} else= {
  :log info ("UpdateDynDNS: No dyndns update needed")
}

 Заходим в System / Scheduler и добавляем новое задание. 

Или в консоли вводим

/system scheduler add name=dyndns interval=00:30 on-event="/system script run dynDns\r\n"

Не ставьте интервал обновления больше 10 минут!

Иначе DynDNS может заблокировать вас.

Скрипт для no-ip.org

# Set needed variables

	:local username "@gmail.com"
	:local password "********"
	:local hostname "****.no-ip.org"
	:global systemname [/system identity get name]


	:if ($systemname = "Site1" ) do={

	:set hostname "*****.no-ip.org"

	}
	:global dyndnsForce

	:global previousIP

	# print some debug info

	## :log info ("UpdateDynDNS: username = $username")

	## :log info ("UpdateDynDNS: password = $password")

	## :log info ("UpdateDynDNS: hostname = $hostname")

	## :log info ("UpdateDynDNS: previousIP = $previousIP")

	# get the current IP address from the internet (in case of double-nat)

	/tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"

	:local result [/file get dyndns.checkip.html contents]

	# parse the current IP result

	: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"

	# get the previous IP address from saved file dyndns.txt

	:if (([/file find name=dyndns.txt]) != "") do={

	:local result [/file get dyndns.txt contents]

	# parse the previous IP result

	:local resultLen [:len $result]

	:local startLoc [:find $result "\_" -1]

	:set startLoc ($startLoc + 1)

	:local endLoc $resultLen

	:global previousIP [:pick $result $startLoc $endLoc]

	:log info "UpdateDynDNS: previousIP = $previousIP"

	} else={

	:set previousIP "0.0.0.0"

	}

	# Remove the # on next line to force an update every single time - useful for debugging,

	# but you could end up getting blacklisted by DynDNS!

	:set dyndnsForce true

	## :log info ("Debug - previousIP: ".$previousIP)

	## :log info ("Debug - currentIP: ".$currentIP)

	## :log info ("Debug - dyndnsForce: ".$dyndnsForce)

	# Determine if dyndns update is needed

	# more dyndns updater request details available at http://www.dyndns.com/developers/specs/syntax.html

	:if (($currentIP != $previousIP) || ($dyndnsForce = true)) do={

	:set dyndnsForce false

	:set previousIP $currentIP

	/tool fetch user=$username password=$password mode=http address="no-ip.com" 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")

	}