脚本一：

:global status
:global linx
:global x
:global n
:global m
:set x 4
:set linx 0
:for i from=1 to="$x" do={
:set status [/interface get [/interface find name=("pppoe-out" . "$i")] running]
:if ("$status"=true) do={
:set linx ($linx + 1)
}}
:if ("$linx" > 1) do={
:set m "$linx"
:set n 0
:for i from=1 to="$x" do={
:set status [/interface get [/interface find name=("pppoe-out" . "$i")] running]
:if ("$status"=true) do={
/ip fir man set [/ip fir man find comment="$i"] per-connection-classifier=("both-addresses" . ":" . "$m" . "/" . "$n") disabled=no
:set n ($n + 1)
}
:if ($status != true) do={
/ip fir man set [/ip fir man find comment="$i"] disabled=yes
}}
}

脚本二：

:local pccstatus
:local status
:local pccold
:local pccnew
:local link
:local ncm
:local nrm
:local y
:local z
:local x
:set x 4
:set link 0
:for i from=1 to="$x" do={
:set status [/interface get [/interface find name=("pppoe-out" . "$i")] running]
:if ("$status" = true) do={
:set link ($link + 1)
}
}
:if ("$link" > 1) do={
:set z "$link"
:set y 0
:for i from=1 to="$x" do={
:set status [/interface get [/interface find name=("pppoe-out" . "$i")] running]
:set ncm ("adsl" . "$i" . "conn")
:set nrm ("ADSL" . "$i")
:if ("$status" = true) do={
:set pccnew ("both-addresses" . ":" . "$z" . "/" . "$y")
:set pccold [/ip firewall mangle get [ /ip firewall mangle find chain=bonding new-connection-mark="$ncm"] per-

connection-classifier]
:set pccstatus [/ip firewall mangle get [/ip firewall mangle find chain=bonding new-connection-mark="$ncm"] disable]
:if (("$pccnew" != $pccold) || ("$pccstatus" = true)) do={
/ip firewall mangle set [ /ip firewall mangle find chain=bonding new-connection-mark="$ncm"] per-connection-

classifier=$pccnew disabled=no
/ip firewall mangle set [ /ip firewall mangle find chain=bonding new-routing-mark="$nrm"] disabled=no
}
:set y ($y + 1)
} else {
:set pccstatus [/ip firewall mangle get [/ip firewall mangle find chain=bonding new-connection-mark="$ncm"] disable]
:if ("$pccstatus" = false) do={
/ip firewall mangle disable [ /ip firewall mangle find chain=bonding new-connection-mark="$ncm"]
/ip firewall mangle disable [/ip firewall mangle find chain=bonding new-routing-mark="$nrm"]
}
}
}
}
}

脚本三：

{
:local status
:local i "2"
:local x "0"
:local y "0"
:local z "0"
:set x [:len [/interface pppoe-client find running=yes>
:if ($x<$i) do={
:for ii from=1 to=$i do={
:set status [/interface get [find name=("pppoe-out".$ii)] running]
:if ($status=true) do={
/ip fir man set [find new-connection-mark=$ii] per-connection-classifier=("both-addresses:".$x."/".$y) disable=no;:set y ($y+1)} else={
/ip fir man set [find new-connection-mark=$ii] disable=yes}}}
:if ($x=$i) do={
:set z [:len [/ip fir man find action="mark-connection" disabled=yes chain=prerouting>
:if ($z>0) do={
:for ii from=1 to=$i do={
/ip fi man set [find new-connection-mark=$ii] per-connection-classifier=("both-addresses:".$x."/".$y) disable=no;:set y ($y+1)}}}}