记录工作中RouterOS的脚本命令（一）

1.获取routeros路由器中的所有pppoe拨号失败的pppoe账号

/interface pppoe-cl
:foreach i in [find] do={:if [get $i  running ] do={} else={:put [[get $i user] ]}}
/

2.获取routeros路由器中的所有pppoe拨号失败的pppoe账号和密码

/interface pppoe-cl
:foreach i in [find] do={:if [get $i  running ] do={} else={:put [[ get $i user]; [get $i password] ]}}
/

3.获取routeros路由器中的所有pppoe拨号的pppoe账号

/interface pppoe-client
:foreach i in=[find] do={:put [get $i user]}
/

4.获取routeros路由器中的pppoe-out1至pppoe-out100的pppoe账号

:for i from=1 to=100 do={:put [/interface pppoe-client get [find name=("pppoe-out".$i)] user]}
/

5.启用routeros路由器中所有启用失败和禁用状态的pppoe拨号接口

/interface pppoe-cl
:foreach i in [find] do={:if [get $i  running ] do={} else={enable $i}}
/

6.禁用routeros路由器中所有的pppoe拨号接口

/interface pppoe-cl
:foreach i in [find] do={:if [get $i  running ] do={disable $i} }
/

7.获取routeros路由器中指定pppoe接口的IP地址（例:pppoe-out1到pppoe-out49）

/ip address
:for i from=1 to=49 do={:put [ get [find interface=("pppoe-out").$i ] address ]}
/

8.在routeros路由器中批量创建vrrp虚拟接口（例：vrrp1至vrrp50）注：vrid的数值范围0~255

/interface vrrp
:for i from=1 to=50 do={ set [find name=("vrrp".$i)] vrid=("100"+$i)}
/

9.在routeros路由器中修改指定vrrp的vrid（例：vrrp至vrrp50）注：vrid的数值范围0~255

/interface vrrp
:for i from=1 to=50 do={ set [find name=("vrrp".$i)] vrid=("100"+$i)}
/

10.在routeros路由器中修改指定pppoe拨号的密码（例：将pppoe-out21至pppoe-out30的密码都修改成123456）

/interface pppoe-client
:for i from=21 to=30 do={set [find name=("pppoe-out".$i)] password=123456}
/

11.在routeros路由器中统计地址为0.0.0.0的l2tp，sstp，pptp的用户数量

:gl lt 0
/ppp active{ :foreach i in=[find address ~"0.0.0.0"] do={:set lt ($lt+1)}}
:put $lt

12.在routeros路由器中创建l2tp接口（例：连接地址192.168.10.1-32，账号都是a1，密码都是123456）

:gl array {192.168.10.1;192.168.10.2;192.168.10.3;192.168.10.4;192.168.10.5;192.168.10.6;192.168.10.7;192.168.10.8;192.168.10.9;192.168.10.10;192.168.10.11;192.168.10.12;192.168.10.13;192.168.10.14;192.168.10.15;192.168.10.16;192.168.10.17;192.168.10.18;192.168.10.19;192.168.10.20;192.168.10.21;192.168.10.22;192.168.10.23;192.168.10.24;192.168.10.25;192.168.10.26;192.168.10.27;192.168.10.28;192.168.10.29;192.168.10.30;192.168.10.31;192.168.10.32}
:gl ip
:gl k
:gl j
:set k 1
:set j 32
:gl server
:set server 1
:for i from=$k to=$j do={
:set ip [:pick $array ($i-1)]
:put $ip
/in l2tp-c add  name=("ltp-out".$i) connect-to=$ip user=("a".$server) password=123456 disabled=no
}

13.获取routeros中所有pppoe账号的后6位

:gl yh
/int pppoe-cl
:foreach i in=[find] do={
:set yh [get $i user];
:set yh [:pick $yh ([:len $yh]-6) [:len $yh]];
:put $yh
}