到期停用脚本（修改版）
本帖最后由 luye7 于 2013-6-10 10:47 编辑:local nyr
:local mon ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $nyr 0 3]]+1)
:if ($mon<10) do={:set mon ("0"."$mon")}
:local day [:pick 4 6]
:local year [:pick 7 11]
:local now
:set now ("$year"."$mon"."$day")
/ppp secret
:foreach user in do={
:local comm
:local pnam
:set comm [:pick $comm 1 9]
:if ([:len $comm] < 8) do={:log error ("用户备注不对，请重新备注" . $pnam);:beep frequency=3000 length=0.5} else={
:if ($comm<=$now) do={
/ppp active remove
/ppp secret disable
:log warning ("用户帐号已到期并停止" . $pnam)
}}} 那个收钱的就是作者本人啊，亲
自行删除吧，还是支持作者原创 楼主好像实在是无聊了 是不是提前3天的？ 用不了吧？ 用不用得，得试过才知道！ 本帖最后由 qkhhgdpyg 于 2013-6-13 15:51 编辑
試過了，用不了，，，，沒反應，
我把一個用戶加了注釋，20130625
然後運行你的腳本，沒有反應。
有問題，不會檢測全部用戶。用戶有140多個，紅色的一行為檢測一個用戶，沒有140行。
如果有中文備註的或者不是規格備註的，檢測不了，會停止，不繼續檢測。
能改好不？ 忘了，直接在前面加个空格或者备注为这样就行了！ qkhhgdpyg 发表于 2013-6-13 15:47 static/image/common/back.gif
試過了，用不了，，，，沒反應，
我把一個用戶加了注釋，20130625
然後運行你的腳本，沒有反應。
忘了，直接在前面加个空格或者备注为这样就行了！
页:
[1]