亮一下我写的小垃圾脚本~ADSL多线自动更改NTH （再发 3.0）

夏月轻雷

本脚本集 ADSL 多线掉线后自动刷新IP~自动修改NTH值~默认网关线路出错后自动更换默认网关~默认网关更新同步更新DDNS 于一身~~
主要方便大家~~高手一笑而过就行了~小月~67088833

新版本在2.9.27下测试所有功能正常~~
3.X下未测试~~哪位兄弟测试过的请发布一下测试结果~~

3.X  and 2.9 小修改

1. 
   
2. #自动换IP的脚本
   
3. #带NTH修改功能,带自动修改默认网关功能 FOR 2.9.X and 3.0 V2.0
   
4. #默认路由必须手动添加~默认路由的说明必须为数字！默认路由必须添加main路由标记
   
5. #本版本脚本刚刚完成~未经测试~如有BUG请原谅~欢迎大虾们批评指正 小月QQ：67088833
   
6. #开启SRC反转的全局NAT反转标识必须为GetNat
   
7. #更多功能后期敬请等待 :global rosVer ""
   
8. :global NewIP ""
   
9. :global OldIP ""
   
10. :global Count ""
    
11. :global IsRun ""
    
12. :global IsNat ""
    
13. :global Runid ""
    
14. :global BakTag ""
    
15. :global RouTag ""
    
16. :global ConTag ""
    
17. :global AccTag ""
    
18. :global NatTag ""
    
19. :global IsSRou ""
    
20. :global IsDDNS ""
    
21. :global Icount ""
    
22. :global Mainid ""
    
23. :global Mainip ""
    
24. :global Status ""
    
25. :global Nthcon ""
    
26. :global IntName ""
    
27. :global MainKey ""
    
28. :global DDNSName ""
    
29. :global DDNSUser ""
    
30. :global DDNSPass ""
    
31. :global MainCache ""
    
32. :global IsDefGetWay ""
    
33. :global RuningCount ""
    
34. :global NewNthCache ""
    
35. :global OldNthCache ""
    
36. #修改路由版本 false 为 2.9.x true为3.x
    
37. :set ROSVer true
    
38. #修改下方线路数量
    
39. :set Count 5
    
40. #修改下方接口名称
    
41. :set IntName "ADSL-"
    
42. #修改下方连接游标名称
    
43. :set ConTag "Con-"
    
44. #修改下方封包游标名称
    
45. :set BakTag "Rou-"
    
46. #修改下方静态IP名称
    
47. :set AccTag "ADSL-"
    
48. #修改下方NAT游标名称
    
49. :set NatTag "ADSL-"
    
50. #修改下方路由表名称
    
51. :set RouTag "ADSL-"
    
52. #是否为静态路由表
    
53. :set IsSRou true
    
54. #是否使用 SRCNAT 反转，使用MASQUERADED的朋友这里要设置false 要不会出错~！
    
55. :set IsNat true
    
56. #是否开启自动修改默认网关功能
    
57. :set IsDefGetWay true
    
58. #是否开启DDNS更新功能（不开启修改默认网关功能无效）
    
59. :set IsDDNS true
    
60. #动态域名
    
61. :set DDNSName "xiaoyue.changeip.com"
    
62. #用户名称
    
63. :set DDNSUser "sadking"
    
64. #用户密码
    
65. :set DDNSPass "********"
    
66. #以下设置不熟悉脚本者不要乱改动
    
67. :if ($RosVer) do={
    
68. :set Runid ("a","a")
    
69. :set Nthcon ","
    
70. :set Icount 1
    
71. } else={
    
72. :set Runid (a,a)
    
73. :set Nthcon ",1,"
    
74. :set Icount 0
    
75. }
    
76. :set MainKey false
    
77. :set RuningCount 0
    
78. :set Mainip [/ip rou get [/ip rou find distance=1 routing-mark="main"] gateway]
    
79. :set Mainid [/ip rou get [/ip rou find distance=1 routing-mark="main"] comment]
    
80. :for i from=1 to=$Count  do={
    
81. :set Status [/int get [/int find name=($IntName . $i)] running]
    
82. :set IsRun [/ip fir man get [/ip fir man find comment=($BakTag . $i)] disabled]
    
83. :if ($Status) do={
    
84. :set RuningCount ($RuningCount + 1)
    
85. :if ($RosVer) do={
    
86. :set Runid ($Runid + $i)
    
87. } else={
    
88. :set Runid ($Runid . $i)
    
89. }
    
90. :set NewIP [/ip add get [/ip add find dynamic=yes interface=($IntName . $i)] address]
    
91. :set OldIP [/ip add get [/ip add find dynamic=no interface=($IntName . $i)] address]
    
92. :set NewIP [:pick $NewIP 0 [:find $NewIP "/"]]
    
93. :set OldIP [:pick $OldIP 0 [:find $OldIP "/"]]
    
94. :if ($NewIP != $OldIP) do={
    
95. /ip add set [/ip add find comment=($AccTag . $i)] address=$NewIP network=$NewIP broadcast=$NewIP
    
96. :if (!$IsSRou) do={/ip rou set [/ip rou find comment=($RouTag . $i)] gateway=$NewIP}
    
97. :if ($IsNat) do={/ip fir nat set [/ip fir nat find comment=($NatTag . $i)] to-addresses=$NewIP}
    
98. }
    
99. :if ($IsRun) do={
    
100. /ip fir man set [/ip fir man find comment=($BakTag . $i)] disabled=no
     
101. /ip fir man set [/ip fir man find comment=($ConTag . $i)] disabled=no
     
102. :if ($IsNat) do={/ip fir nat set [/ip fir nat find comment=($NatTag . $i)] disabled=no}
     
103. :if (!$IsSRou) do={/ip rou set [/ip rou find comment=($RouTag . $i)] disabled=no}
     
104. :log info ( "第<" . $i . ">号网络线路故障恢复，分流开启！" . [/sys cl get date] . " " . [/sys cl get time] . "检测")
     
105. }
     
106. } else={
     
107. :if (!$IsRun) do={
     
108. /ip fir man set [/ip fir man find comment=($BakTag . $i)] disabled=yes
     
109. #/ip fir man set [/ip fir man find comment=($ConTag . $i)] nth=0,0,0
     
110. /ip fir man set [/ip fir man find comment=($ConTag . $i)] disabled=yes
     
111. :if ($IsNat) do={/ip fir nat set [/ip fir nat find comment=($NatTag . $i)] disabled=yes}
     
112. :if (!$IsSRou) do={/ip rou set [/ip rou find comment=($RouTag . $i)] disabled=yes}
     
113. :log info ( "第<" . $i . ">号网络线路出现故障，分流关闭！" . [/sys cl get date] . " " . [/sys cl get time] . "检测")
     
114. }
     
115. }
     
116. }
     
117. :if (!$RosVer) do={:set RuningCount ($RuningCount - 1)}
     
118. :foreach i in=$Runid do={
     
119. :if ($i != "a") do={
     
120. :set OldNthCache [/ip fir man get [/ip fir man find comment=($ConTag . $i)] nth]
     
121. :set NewNthCache ($RuningCount . $Nthcon . $Icount)
     
122. :if ($OldNthCache != $NewNthCache) do={
     
123. /ip fir man set [/ip fir man find comment=($ConTag . $i)] nth=$NewNthCache
     
124. :log info ( "第<" . $i . ">号网络线路修改分流设置成功！" . [/sys cl get date] . " " . [/sys cl get time] . "检测")
     
125. }
     
126. :set Icount ($Icount + 1)
     
127. }
     
128. :if ($IsDefGetWay) do={
     
129. :if ($Mainid != $i) do={
     
130. :if ($MainKey != true) do={
     
131. :set MainKey false
     
132. }
     
133. } else={
     
134. :set MainKey true
     
135. }
     
136. }
     
137. }
     
138. :if ($IsDefGetWay) do={
     
139. :if (!$MainKey) do={
     
140. :set MainCache [:pick $Runid 2 3]
     
141. :if (!$IsSRou) do={
     
142. :set NewIP [/ip add get [/ip address find dynamic=yes interface=($IntName . $MainCache)] address]
     
143. :set NewIP [:pick $NewIP 0 [:find $NewIP "/"]]
     
144. } else={
     
145. :set NewIP [/ip add get [/ip address find dynamic=yes interface=($IntName . $MainCache)] network]
     
146. }
     
147. :if ($Mainip != $NewIP) do={
     
148. :log info ( "默认网关检测失败,默认网关转换成<" . $MainCache . ">号线路" . [/sys cl get date] . " " . [/sys cl get time] . "检测")
     
149. /ip rou set [/ip rou find distance=1 routing-mark="main"] comment= $MainCache
     
150. /ip rou set [/ip rou find comment=$MainCache] gateway=$NewIP
     
151. :if ($IsNat) do={/ip fir nat set [/ip fir nat find comment="GetNat"] to-addresses=$NewIP}
     
152. :if ($IsDDNS) do={/tool dns-update name=$DDNSName address=$NewIP key-name=$DDNSUser key=$DDNSPass}
     
153. }
     
154. } else={
     
155. :set NewIP [/ip add get [/ip add find dynamic=yes interface=($IntName . $Mainid)] address]
     
156. :set NewIP [:pick $NewIP 0 [:find $NewIP "/"]]
     
157. :if ($Mainip != $NewIP) do={
     
158. /ip rou set [/ip rou find distance=1 routing-mark="main"] comment= $Mainid
     
159. /ip rou set [/ip rou find comment=$Mainid] gateway=$NewIP
     
160. :if ($IsNat) do={/ip fir nat set [/ip fir nat find comment="GetNat"] to-addresses=$NewIP}
     
161. :if ($IsDDNS) do={/tool dns-update name=$DDNSName address=$NewIP key-name=$DDNSUser key=$DDNSPass}
     
162. }
     
163. }
     
164. }
     

复制代码

2.9.x
NTH2.9.27.rar (1.61 KB, 下载次数: 160)

2010-5-13 07:02 上传

点击文件名下载附件

3.x and 2.9.x
NTH.rar (1.72 KB, 下载次数: 148)

2010-5-14 00:29 上传

点击文件名下载附件

小修改
NTHsp1.rar (1.75 KB, 下载次数: 181)

2010-5-14 01:23 上传

点击文件名下载附件

广东林001

学习了

e_zhangiso

ddddddddddddddddd

soft_route

学习...

47771885

jgnik

matowood

学习...

wsb2008

wugalang88

顶一下!!!!!

yasginiwa

看看

moonchen

看看好用不，不知道能不能用在3.2呢？

windosac

学习学习!

blclass

学习了。。。

WGHBOY

太长了吧 以上为4线nth脚本,3.x

权威

顶一下!!!!!