fems

一直用DNSexit，免费稳定，也支持顶级域名。
更新脚本参考http://forum.mikrotik.com/viewtopic.php?t=65013修改一下即可，需指定wan口。
ROS6.24

1. #************************************************************************************************
   
2. # Parameters
   
3. #************************************************************************************************
   
4. :local username "<your username>"
   
5. :local password "<your password>"
   
6. :local hostname "<subdomain.yourprovider.net>"
   
7. 
   
8. #availabe options: "http" or "iface"
   
9. # - http: will query an external server and discover you public ip (userful for NATted connections)
   
10. # - iface: will use the ip address assigned to the $iface interface (see below)
    
11. 
    
12. :local discoverBy "iface"
    
13. 
    
14. # interface used to get ip address from (only if discoverBy = iface)
    
15. 
    
16. :local iface "public-dsl"
    
17. 
    
18. # current available services: "dyndns", "noip" and "dnsexit"
    
19. :local service "dnsexit"
    
20. 
    
21. # number of days to force an update if your IP did not change (helps keeping your account active)
    
22. :local forceUpdate 15
    
23. 
    
24. #************************************************************************************************
    
25. # do not change below this unless you know what you are doing
    
26. #************************************************************************************************
    
27. 
    
28. :local force
    
29. :global lastUpdate
    
30. :local currentIP
    
31. 
    
32. :if ($discoverBy="http") do={
    
33.    /tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"
    
34.    :local result [/file get dyndns.checkip.html contents]
    
35.    :local resultLen [:len $result]
    
36.    :local startLoc [:find $result ": " -1]
    
37.    :set startLoc ($startLoc + 2)
    
38.    :local endLoc [:find $result "</body>" -1]
    
39.    :set currentIP [:pick $result $startLoc $endLoc]
    
40. } else={
    
41.    :set currentIP [ /ip address get [find interface=$iface disabled=no] address ]
    
42.    :for i from=( [:len $currentIP] - 1) to=0 do={
    
43.       :if ( [:pick $currentIP $i] = "/") do={ :set currentIP [:pick $currentIP 0 $i] }
    
44.    }
    
45. }
    
46. 
    
47. #get IP from DynDNS for our hostname
    
48. :local resolvedIP [:resolve $hostname]
    
49. 
    
50. # get current date in format mm/DD/YYYY
    
51. :local date [ /system clock get date ]
    
52. 
    
53. # convert to YYYYMMDD
    
54. :local months ("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec");
    
55. :local month [ :pick $date 0 3 ]; :local day [ :pick $date 4 6 ]; :local year [ :pick $date 7 11 ];
    
56. :local mm ([ :find $months $month -1 ] + 1);
    
57. :if ($mm < 10) do={ :set month ("0" . $mm); } else={ :set month $mm; }
    
58. :set date ($year . $month . $day);
    
59. 
    
60. :if ([ :typeof $lastUpdate ]=[:nothing] || (($date-$lastUpdate) >= $forceUpdate  && $forceUpdate > 0)) do={
    
61.    :set force true
    
62. }
    
63. 
    
64. :put ("Current IP: $currentIP ($discoverBy), Last update: $lastUpdate")
    
65. 
    
66. # Determine if dyndns update is needed
    
67. :if (($currentIP != $resolvedIP) || ($force = true)) do={
    
68.    
    
69.     :if ($service = "dyndns") do={
    
70.        /tool fetch user=$username password=$password mode=http address="members.dyndns.org" \
    
71.             src-path="/nic/update?hostname=$hostname&myip=$currentIP" dst-path="/output.txt"
    
72.     }
    
73.     :if ($service = "noip") do={
    
74.        /tool fetch user=$username password=$password mode=http address="dynupdate.no-ip.com" \
    
75.             src-path="/nic/update?hostname=$hostname&myip=$currentIP" dst-path="/output.txt"
    
76.     }
    
77.     :if ($service = "dnsexit") do={
    
78.        /tool fetch user=$username password=$password mode=http address="update.dnsexit.com" \
    
79.             src-path="/RemoteUpdate.sv?login=$username&password=$password&host=$hostname&myip=$currentIP" dst-path="/output.txt"
    
80.     }
    
81.    
    
82.     :local result [/file get output.txt contents]
    
83.     :log info ("dynamic-dns-updater: Service = $service, Hostname = $hostname")
    
84.     :log info ("dynamic-dns-updater: CurrentIP = $currentIP, Resolved IP = $resolvedIP")
    
85.     :log info ("dynamic-dns-updater: Update result: ".$result)
    
86.     /ip dns cache flush
    
87.     :set lastUpdate $date
    
88. }

複製代碼