无聊发个PPPOE到期+批量修改注释脚本
本帖最后由 huigezi' 于 2012-2-1 10:48 编辑#以下为批量修改PPPOE帐号注释脚本
=================================
#******QQ:1337177977apple*****
#修改前帐号注释格式为:jan/30/2012
#修改后帐号注释格式为:01月-30日-2012年
/ppp secret
:foreach a in= do={
:local pcom
:if ([:pick $pcom 3]="/") do={
:local m [:pick $pcom 0 3]
:local d [:pick $pcom 4 6]
:local y [:pick $pcom7 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 ;
: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= do={
:set pname ;
set $pname disabled=yes;
/ppp active remove ;};
:foreach a in= do={
:set pcom ;
:set pname ;
: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")
}};};/;
:lol 第一位！！！ 第一位！！！ 有人用过没啊，行不行啊！！！！！！！！！！！！！
貌似不懂用法~ 不错！！！！！
页:
[1]