帮忙改个PPPOE账号到期自动停用并踢下线的脚本

ai188

{
:local nyr [/system clock get date]
:local yy ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $nyr 0 3]]+1)
:if ($yy<10) do={:set yy (0 . $yy)}
:set nyr ([:pick $nyr 7 11] . $yy . [:pick $nyr 4 6])
:local ii "0";
/ppp secret;
:foreach puse in [find disabled=no comment!="" comment!="admin"] do={
:local pcom [get $puse comment];
:local pnam [get $puse name];
:set ii ($ii + 1)
:if ([:len $pcom] >= 8) do={
:local pcom8 [:tonum [:pick $pcom 0 8]];
:if ($pcom8>1) do={
:if ($nyr>=$pcom8) do={
/ppp secret disable [/ppp secret find name=$pnam];:set ii ($ii-1);
/ppp active remove [/ppp active find name=$pnam];
:log error ("\BD\FB\D3\C3\D3\C3\BB\A7 [" . $pnam . "]");
}} else={:log error ("\B4\ED\CE\F3\B5\C4\B1\B8\D7\A2\B8\F1\CA\BD [" . $pnam . "] [" . $pcom . "]");}
} else={:log error ("\C8\D5\C6\DA\B1\B8\D7\A2\B2\BB\D7\E38\CE\BB [" . $pnam . "] [" . $pcom . "]")}}
:log warning ("\D3\D0\D0\A7\D3\C3\BB\A7\CA\FD [" . $ii . "]");
}






格式  


20240101::备注




脚步支持v6   v7不兼容    请大神帮忙改下兼容v7。

qwert1388

v7好几个脚本都用不了

47771885

这个应该是差不多 十年前的脚本了,,看到了,那还是由我修复下吧
还是简单点 大于 7.10的版本设置 rosver 7 小于的设置为6

1. 
   
2. {
   
3.   #www.routeros.cn  20220323
   
4.   :local nyr
   
5.   :local Year
   
6.   :local Month
   
7.   :local Day
   
8.   :local stime [/system clock  get time]
   
9.   :local Date [/system clock get date]
   
10.   ##7.10 >v=7 v< 7.10 =6
    
11.   :local rosver 7
    
12.   :if ($rosver = 6) do={
    
13.     :set Year ([:pick $Date 7 11])
    
14.     :set Month ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $Date 0 3]]+1)
    
15.     :if ($Month < 10) do={
    
16.       :set Month ("0" . $Month)
    
17.     }
    
18.     :set Day ([:pick $Date 4 6])
    
19.     :set nyr ($Year . $Month . $Day)
    
20.   } else={
    
21.     :set Year ([:pick $Date 0 4])
    
22.     :set Month ([:pick $Date 5 7])
    
23.     :set Day ([:pick $Date 8 10])
    
24.     :set nyr ($Year . $Month . $Day)
    
25.   }
    
26. :local ii "0";
    
27. /ppp secret;
    
28. :foreach puse in [find disabled=no comment!="" comment!="admin"] do={
    
29. :local pcom [get $puse comment];
    
30. :local pnam [get $puse name];
    
31. :set ii ($ii + 1)
    
32. :if ([:len $pcom] >= 8) do={
    
33. :local pcom8 [:tonum [:pick $pcom 0 8]];
    
34. :if ($pcom8>1) do={
    
35. :if ($nyr>=$pcom8) do={
    
36. /ppp secret disable [/ppp secret find name=$pnam];:set ii ($ii-1);
    
37. /ppp active remove [/ppp active find name=$pnam];
    
38. :log error ("\BD\FB\D3\C3\D3\C3\BB\A7 [" . $pnam . "]");
    
39. }} else={:log error ("\B4\ED\CE\F3\B5\C4\B1\B8\D7\A2\B8\F1\CA\BD [" . $pnam . "] [" . $pcom . "]");}
    
40. } else={:log error ("\C8\D5\C6\DA\B1\B8\D7\A2\B2\BB\D7\E38\CE\BB [" . $pnam . "] [" . $pcom . "]")}}
    
41. :log warning ("\D3\D0\D0\A7\D3\C3\BB\A7\CA\FD [" . $ii . "]");
    
42. }
    

复制代码