无聊发个PPPOE到期+批量修改注释脚本

huigezi'

#以下为批量修改PPPOE帐号注释脚本
=================================
#******QQ:1337177977  apple*****
#修改前帐号注释格式为:jan/30/2012
#修改后帐号注释格式为:01月-30日-2012年
/ppp secret
:foreach a in=[find] do={
:local pcom [get $a comment]
:if ([:pick $pcom 3]="/") do={
:local m [:pick $pcom 0 3]
:local d [:pick $pcom 4 6]
:local y [:pick $pcom  7 11]
:if ($m="jan") do={:set m "01"};
:if ($m="feb") do={:set m "02"};
:if ($m="mar") do={:set m "03"};
:if ($m="apr") do={:set m "04"};
:if ($m="may") do={:set m "05"};
:if ($m="jun") do={:set m "06"};
:if ($m="jul") do={:set m "07"};
:if ($m="aug") do={:set m "08"};
:if ($m="sep") do={:set m "09"};
:if ($m="oct") do={:set m "10"};
:if ($m="nov") do={:set m "11"};
:if ($m="dec") do={:set m "12"};
:set pcom ($m."\D4\C2"."-".$d."\C8\D5"."-".$y."\C4\EA")
set $a comment=$pcom
}};/;

=================================
#以下为帐号到期脚本
=================================

#帐号注释格式为：01月-30日-2012年
:do {
:local date;:local day;:local month;:local year;
:local pname;:local pcom;
:set date [/system clock get date];
:set day  [:pick $date 4 6];
:set month [:pick $date 0 3];
:set year [:pick $date 7 11];
:if ($month="jan") do={:set month "01"};
:if ($month="feb") do={:set month "02"};
:if ($month="mar") do={:set month "03"};
:if ($month="apr") do={:set month "04"};
:if ($month="may") do={:set month "05"};
:if ($month="jun") do={:set month "06"};
:if ($month="jul") do={:set month "07"};
:if ($month="aug") do={:set month "08"};
:if ($month="sep") do={:set month "09"};
:if ($month="oct") do={:set month "10"};
:if ($month="nov") do={:set month "11"};
:if ($month="dec") do={:set month "12"};
:set date ($month."\D4\C2"."-".$day."\C8\D5"."-".$year."\C4\EA")
/ppp secret
:foreach a in=[find comment=$date] do={
:set pname [get $a name];
set $pname disabled=yes;
/ppp active remove [find name=$pname];};
:foreach a in=[find comment!="admin"] do={
:set pcom [get $a comment];
:set pname [get $a name];
:if ([:len $pcom]!="16") do={
:log error ("\D5\CB\BA\C5: ".$pname." \B5\C4\D7\A2\CA\CD: ".\
$pcom." \B2\BB\B7\FB\BA\CF\D2\AA\C7\F3")
}};};/;

kmioss

第一位！！！

szhjf

第一位！！！

czsz9898

有人用过没啊，行不行啊！！！！！！！！！！！！！

注册马

貌似不懂用法~

星空之云

不错！！！！！