分享Mikrotik RouterOS脚本：pppoe的物理网卡、以及LAN/WAN list排错

hyes

此脚本自用，大概是我这种奇葩使用情况时候可能用到：
1、x86；
2、pppoe；
3、防火墙基于interface-list，区分了WAN-List、LAN-list；
4、新机器可能没有vga显示接口或者显示器没有了老接口了。。。又或者console口有有点费劲；
5、基于interface ether num轮替检查和排错。检查ether的advertise是否有效，应该可以排除光电复用网卡被设置为pppoe口~~只有1个有效物理网卡时候会禁用pppoe并并入bridge。

当然、最简单的办法是写脚本直接再backup之前启用allow all ip/mac to winbox。

没有做完全测试，仅供参考，主要就是为了backup恢复后，不通过vga或者console，网线直接可以winbox。
ps: 为啥不直接rsc配置导入，因为有时候，真的很难导入成功，排错也费劲。

1. :delay 15s;
   
2. :log info ":::-The Start-:The pppoeout interface settings Checker."
   
3. 
   
4. :local pppoenm;
   
5. :local LanList;
   
6. :local WanList;
   
7. :local WanNM;
   
8. 
   
9. :set pppoenm "pppoe-out1";
   
10. :set WanNM "WANifc";
    
11. :set LanList "LANs";
    
12. :set WanList "WANs";
    
13. 
    
14. ##------------------------------------------------------------------------------------------##
    
15. #  !!!! DO NOT CHANGE ANYTHING BELOW THIS LINE, IF YOU ARE NOT SURE WHAT YOU ARE DOING !!!!  #
    
16. ##------------------------------------------------------------------------------------------##
    
17. 
    
18. 
    
19. :local pppoeint;
    
20. :local BridgeNM;
    
21. :local tmms;
    
22. :local Ether1NM;
    
23. :local EtherNumALl;
    
24. :local EachEthNM;
    
25. :local EachEthDNM;
    
26. 
    
27. 
    
28. :local EtherNum;
    
29. :local NumEther;
    
30. :local EtherTNum;
    
31. :local EtherANum;
    
32. :local MaxNum;
    
33. :local csifnm;
    
34. :local Ether1Count;
    
35. 
    
36. :local adv;
    
37. :local advallCount;
    
38. 
    
39. :set tmms ([ :pick [/system clock get time ] 0 2 ] . [ :pick [/system clock get time ] 3 5 ] . [ :pick [ /system clock get time ] 6 8 ] );
    
40. 
    
41. 
    
42. :set pppoeint [ /interface pppoe-client get [ find name="$pppoenm" ] interface ];
    
43. :set BridgeNM [ /interface bridge get num=0 name ];
    
44. 
    
45. 
    
46. # for loop to check how many ether there are.
    
47. :local Minimum; \
    
48. :for Minimum from=0 to=24 step=1 do={ \
    
49.   :do { \
    
50.     /interface ethernet get num="$Minimum" name;
    
51.     :set EtherNum [ :tonum $Minimum ];
    
52.     :set NumEther [ :tonum $Minimum ];
    
53.     :set EtherTNum [ :tonum $Minimum ];
    
54.     :set EtherANum [ :tonum $Minimum ];
    
55.     :set EtherNumALl [ :tonum $Minimum ];
    
56.     :set MaxNum [ :tonum ( $Minimum+1 ) ];
    
57.     } on-error={
    
58.       :if ( [:tonum $Minimum ]<=0 ) do={
    
59.         :log info "::There is at most one ether."
    
60. 
    
61.         :if ( [ :tobool [ /interface find default-name=ether1 ] ]=true ) do={
    
62.           :set Ether1NM [ /interface get [find default-name=ether1 ] name]
    
63. 
    
64.           :log info ( "Disabled " . $pppoenm . "." )
    
65.           /interface pppoe-client set [ find name="$pppoenm" ] disabled=no
    
66.          
    
67.           :if ( [ :tobool [ /interface list member find list="$WanList" interface="$Ether1NM" ] ]=true ) do={
    
68.             :log info ( "Remove " . $Ether1NM . " from list named " . $WanList . "." );
    
69.             /interface list member remove [ find list="$WanList" interface="$Ether1NM" ];
    
70.           };
    
71. 
    
72.           :if ( [ :tobool [ /interface bridge port find bridge="$BridgeNM" interface="$Ether1NM" ] ]=false ) do={
    
73.             :log info ( "Add " . $Ether1NM . " to list list named " . $LanList . "." );
    
74.             /interface bridge port add bridge="$BridgeNM" interface="$Ether1NM";
    
75.           };
    
76.          
    
77.           :if ( [ :tobool [ /interface list member find list="$WanList" interface="$BridgeNM" ] ]=true ) do={
    
78.             :log info ( "Remove interface bridge named " . $BridgeNM . " from lists named " . $WanList . "." )
    
79.             /interface list member remove [ find list="$WanList" interface="$BridgeNM" ];
    
80.             :delay 2s;
    
81.           } else={
    
82.             :log info ( "Inter-lists " . $WanList . "'s member does not exist interface " . $BridgeNM . "." )
    
83.           };
    
84. 
    
85.           :if ( [ :tobool [ /interface list member find list="$WanList" interface~"ether" ] ] =true ) do={
    
86.             :log info ( "Remove ether~ from Inter-lists " . $WanList . "..." )
    
87.             /interface list member remove [ find list="$WanList" interface~"ether" ];
    
88.             :delay 2s;
    
89.           } else={
    
90.             :log info ( "Inter-lists " .  $WanList . "'s member does not exist interface ether~." )
    
91.           };
    
92. 
    
93.           :log warning  "The only ehter has been set as the bridge port..."
    
94.           :error "The only ehter has been set as the bridge port..."
    
95.         } else={
    
96.           :log info "::There is no ethernet interface with default-name=ether1."
    
97.           :error "::There is no ethernet interface with default-name=ether1."
    
98.         }
    
99.       }
    
100.     }
     
101. }
     
102. 
     
103. 
     
104. 
     
105. :delay 2s;
     
106. :log info ( "There are " . $MaxNum . " ethernet interface in total." )
     
107. 
     
108. 
     
109. 
     
110. # Check the number of ethernet interface with effective advertising-value.
     
111. :set advallCount 0;
     
112. :for advchk from=0 to=$EtherANum step=1 do={ \
     
113.   :set adv ( [ /interface ethernet monitor num=$advchk once as-value ]->"advertising" )
     
114.   :delay 2s;
     
115.   :if ( "$adv"!="" ) do={
     
116.     :set advallCount ( $advallCount+1)
     
117.   }
     
118. }
     
119. 
     
120. :log info ( "::There are " . $advallCount . " ethernet interface with effective advertising-value." );
     
121. :if ( [:tonum $advallCount ]<=1 ) do={
     
122.   :log info "::The bridge may not be functioning properly."
     
123. 
     
124.   :log info ( "Disabled " . $pppoenm . "." )
     
125.   /interface pppoe-client set [ find name="$pppoenm" ] disabled=no
     
126. 
     
127.   :for e from=0 to=$EtherNumALl step=1 do={
     
128.     :set csifnm [ /interface ether get num=$e name ];
     
129. 
     
130.     :log info ( "Remove num" . $e . " from list named " . $WanList . "." );
     
131.     :if ( [ :tobool [ /interface list member find list="$WanList" interface="$csifnm" ] ]=true ) do={
     
132.       /interface list member remove [ find list="$WanList" interface="$csifnm" ];
     
133.     }
     
134.    
     
135.     :log info ( "Add " . $csifnm . " to bridge " . $BridgeNM . "." );
     
136.     :if ( [ :tobool [ /interface bridge port find bridge="$BridgeNM" interface="$csifnm" ] ]=false ) do={
     
137.       /interface bridge port add bridge="$BridgeNM" interface="$csifnm";
     
138.     }
     
139.   };
     
140. 
     
141.     :if ( [ :tobool [ /interface list member find list="$WanList" interface="$BridgeNM" ] ]=true ) do={
     
142.       :log info ( "Remove interface bridge named " . $BridgeNM . " from lists named " . $WanList . "." )
     
143.       /interface list member remove [ find list="$WanList" interface="$BridgeNM" ];
     
144.       :delay 2s;
     
145.     } else={
     
146.       :log info ( "Inter-lists " . $WanList . "'s member does not exist interface " . $BridgeNM . "." )
     
147.     };
     
148. 
     
149.     :if ( [ :tobool [ /interface list member find list="$WanList" interface~"ether" ] ] =true ) do={
     
150.       :log info ( "Remove ether~ from Inter-lists " . $WanList . "..." )
     
151.       /interface list member remove [ find list="$WanList" interface~"ether" ];
     
152.       :delay 2s;
     
153.     } else={
     
154.       :log info ( "Inter-lists " .  $WanList . "'s member does not exist interface ether~." )
     
155.     };
     
156. 
     
157.   :log warning "Done to bridge all ethernet interface."
     
158.   :error "Done to bridge all ethernet interface."
     
159. }
     
160. 
     
161. 
     
162. 
     
163. 
     
164. :if ( [ :tobool [ /interface find name="$WanNM" ] ]=false ) do={
     
165.   :log info ( "::The ether named " . $WanNM . " not exists." );
     
166.   :log info ( "::Sequentially try to name the ethernet with effective advertising-valueto " . $WanNM . ".");
     
167.   
     
168.   :log info "Reset all ether's mac-addr..."
     
169.   :for r from=0 to=$EtherNumALl step=1 do={
     
170.     /interface ethernet reset-mac-address num=$r;
     
171.     :delay 2s;
     
172.   }
     
173. 
     
174.   :log info "Rename all ethernet's name..."
     
175.   :for mn from=0 to=$EtherNumALl step=1 do={
     
176.     :log info ( "Rename ethernet numbered-" . $mn . "'s name to ether" . $mn . $tmms . "." )
     
177.     /interface ethernet set num=$mn name=("ether" . $mn . $tmms)
     
178.     :delay 2s;
     
179.   }
     
180. 
     
181.   :for L from=0 to=$EtherTNum step=1 do={
     
182.   :set EachEthDNM [ /interface ethernet get num=$L default-name ];
     
183.     :delay 2s;
     
184.     /interface ethernet set num=$L name=($EachEthDNM . $L);
     
185.   }
     
186. 
     
187.   :for X from=0 to=$EtherTNum step=1 do={
     
188.     :delay 2s;
     
189.     :local advtnew;
     
190.     :set advtnew ( [ /interface ethernet monitor num=$X once as-value ]->"advertising" );\
     
191.     :if ( "$advtnew"!="" ) do={
     
192.       :log info ( "Rename ether numbered-" . $X . "'s name to " . $WanNM . "." );
     
193.       /interface ethernet set num=$X name="$WanNM";
     
194.       :delay 3s;
     
195.       :log warning "The system will reboot in 15 seconds";
     
196.       :delay 15s;
     
197.       /system reboot;
     
198.     }
     
199.   }
     
200. } else={
     
201.   :log info ( "The ether named " . $WanNM . " exists, Check..." )
     
202.   :set adv ( [ /interface ethernet monitor [ find name="$WanNM" ] once as-value ]->"advertising" );
     
203.   :delay 2s;
     
204.   :if ( "$adv"="" ) do={
     
205.     :log info ( "The ethernet " . $WanNM . "'s advertising value is empty." );
     
206.     :log info ( "::Sequentially try to name the ether with effective advertising-value to " . $WanNM . ".");
     
207.     :log info "Reset all ether's mac-addr..."
     
208.     :for r from=0 to=$EtherNumALl step=1 do={
     
209.       /interface ethernet reset-mac-address num=$r;
     
210.       :delay 2s;
     
211.     }
     
212. 
     
213.     :log info "::Rename all the ether...";
     
214.     :for mn from=0 to=$EtherNumALl step=1 do={
     
215.       :log info ( "Rename ether numbered-" . $mn . "'s name to ether" . $mn . $tmms . "." )
     
216.       :delay 2s;
     
217.       /interface ethernet set num=$mn name=("ether" . $mn . $tmms)
     
218.     };
     
219.     :delay 2s;
     
220.     :for l from=0 to=$EtherTNum step=1 do={
     
221.       :set EachEthDNM [ /interface ethernet get num=$l default-name ];
     
222.       :delay 2s;
     
223.       /interface ethernet set num=$l name=($EachEthDNM . $l);
     
224.     };
     
225. 
     
226.     :for X from=0 to=$EtherTNum step=1 do={
     
227.       :delay 2s;
     
228.       :local advtnew;
     
229.       :set advtnew ( [ /interface ethernet monitor num=$X once as-value ]->"advertising" );\
     
230.       :if ( "$advtnew"!="" ) do={
     
231.         :log info ( "Rename ether numbered-" . $X . "'s name to " . $WanNM . "." );
     
232.         /interface ethernet set num=$X name="$WanNM";
     
233.         :delay 3s;
     
234.         :log warning "The system will reboot in 15 seconds";
     
235.         :delay 15s;
     
236.         /system reboot;
     
237.       }
     
238.     }
     
239. 
     
240.   } else={
     
241.     :log info ( "The ether named " . $WanNM . " has a effective advertising-value." );
     
242.   }
     
243. }
     
244. 
     
245. 
     
246. 
     
247. :if ( [ :tobool [ /interface list member find list="$LanList" interface="$WanNM" ] ]=true ) do={
     
248.   :log info ( "Remove ether " . $WanNM . " from lists " . $LanList )
     
249.   /interface list member remove [ find list="$LanList" interface="$WanNM" ];
     
250.   :delay 2s;
     
251. } else={
     
252.   :log info ( "Inte-lists " . $LanList . "'s member does not exist interface " . $WanNM . ".")
     
253. }
     
254. 
     
255. 
     
256. :if ( [ :tobool [ /interface list member find list="$WanList" interface="$BridgeNM" ] ]=true ) do={
     
257.   :log info ( "Remove interface bridge named " . $BridgeNM . " from lists named " . $WanList . "." )
     
258.   /interface list member remove [ find list="$WanList" interface="$BridgeNM" ];
     
259.   :delay 2s;
     
260. } else={
     
261.   :log info ( "Inter-lists " . $WanList . "'s member does not exist interface " . $BridgeNM . "." )
     
262. }
     
263. 
     
264. 
     
265. :if ( [ :tobool [ /interface list member find list="$WanList" interface~"ether" ] ] =true ) do={
     
266.   :log info ( "Remove ether~ from Inter-lists " . $WanList . "..." )
     
267.   /interface list member remove [ find list="$WanList"  interface~"ether" ];
     
268.   :delay 2s;
     
269. } else={
     
270.   :log info ( "Inter-lists " .  $WanList . "'s member does not exist interface ether~." )
     
271. }
     
272. 
     
273. :log info ( "Check whether all the interface named regex-^ether are in " . $BridgeNM . "'s port.")
     
274. :for L from=1 to=$NumEther step=1 do={
     
275.   :set csifnm [ /interface ethernet get num=$L name ];
     
276.   :if ( "$csifnm"!="$WanNM" ) do={
     
277.     :if ( [ :tobool [ /interface bridge port find bridge="$BridgeNM" interface="$csifnm" ] ]=false ) do={
     
278.       :log info ( "The ethernet " . $csifnm . " is not in " . $BridgeNM . "'s port. Adding...")
     
279.       /interface bridge port add bridge="$BridgeNM" interface="$csifnm";
     
280.       :delay 3s;
     
281.     }
     
282.   }
     
283. }
     
284. 
     
285. :if ( [ :tobool [ /interface bridge port find bridge="$BridgeNM" interface="$WanNM" ] ]=true ) do={
     
286.   :log info ( "Remove " . $WanNM . " from " . $BridgeNM . "'s port." )
     
287.   /interface bridge port remove [ find bridge="$BridgeNM" interface="$WanNM" ];
     
288.   :delay 2s;
     
289. } else={
     
290.   :log info ( $BridgeNM . "'s port does not exist " . $WanNM . ".")
     
291. }
     
292. 
     
293. :set pppoeint [ /interface pppoe-client get [ find name="$pppoenm" ] interface ];
     
294. 
     
295. :if ("$pppoeint"!="$WanNM") do={
     
296.   :log info ( $pppoenm . " is not bound to " . $WanNM . "...")
     
297.   :log info "::Set pppoe-client WAN-ether"
     
298.   /interface pppoe-client set [ find name="$pppoenm" ] interface="$WanNM";
     
299. 
     
300.   # :log info ( "Remove all interface named regex-^ether from " . $BridgeNM . "'s port.")
     
301.   # /interface bridge port remove [ find bridge="$BridgeNM" interface~"ether" ];
     
302. 
     
303.   # :log info ( "Remove all interface named regex-^ether from list " . $LanList . "'s member.")
     
304.   # /interface list member remove [ find list="$LanList" interface~"ether" ];
     
305. 
     
306. } else={
     
307.   :log info ( $pppoenm . " is bound to " . $WanNM . "." )
     
308. }
     
309. 
     
310. # :delay 3s;
     
311. # /system script run [ find where name="synddnsScr" ];
     
312. # :delay 5s;
     
313. 
     
314. :log info ":::-The End-: The pppoeout interface settings Checker."

复制代码