Форум поддержи и обмена опытом пользователей оборудования RouterBOARD и операционной системы RouterOS Латвийского производителя MikroTik
https://forummikrotik.ru/
Код: Выделить всё
/system> export compactКод: Выделить всё
#SuperScript V.3.0 [20130330]
#Variables definition
:global adslip
:global adsllastip
:global datum [/system clock get date]
:global vrijeme [/system clock get time]
:global ime [/system identity get name]
#IF lastip is non existant - set it to "0"
:if ([ :typeof $adsllastip ] = nil ) do={ :global adsllastip "0" }
#Set variable with actual ADSL address
:global adslip [ /ip address get [/ip address find interface=ADSL ] address ]
#If not existant - log it
:if ([ :typeof $adslip ] = nil ) do={
:log error "=== No IP on ADSL Interface"
} else={
#...if existsi
:if ($adslip != $adsllastip) do={
:local dynuser "000"
:local dynpass "000"
:local dynhost "99999.dyndns.info"
:log info "=== Updating dns record at DynDNS"
:local str "/nic/update?hostname=$dynhost&myip=$adslip&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG"
/tool fetch address=members.dyndns.org src-path=$str mode=http user=$dynuser password=$dynpass dst-path=("/DynDNS.$dynhost")
:local mailsender "$ime@something.com";
:local mailrec 0000@yandex.ru;
:local mailsubject "IP adresa from /$ime/ $datum $vrijeme";
:local mailbody "$adslip";
:local mailserver [:resolve snmp.yandex.ru];
:local mailuser 0000@yandex.ru;
:local mailpass 00000;
:log info "=== Sending mail"
/tool e-mail send from=$mailsender to=$mailrec subject=$mailsubject body=$mailbody server=$mailserver user=$mailuser password=$mailpass;
#Moving new IP to lastip variable
:global adsllastip "$adslip"
} else={
:log info "=== No IP update needed"
}
}
Код: Выделить всё
add action=drop chain=input comment="drop all" in-interface=ADSL