到期停用脚本（修改版）

luye7 · 发表于 2013-6-10 10:11:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

本帖最后由 luye7 于 2013-6-10 10:47 编辑

:local nyr [/system clock get date]
: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 [/system clock get date] 4 6]
:local year [:pick [/system clock get date] 7 11]
:local now
:set now ("$year"."$mon"."$day")
/ppp secret
:foreach user in [find disabled=no comment!=""] do={
:local comm [get $user comment]
:local pnam [get $user name]
: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 active find name=$pnam]
/ppp secret disable [/ppp secret find name=$pnam]
:log warning ("用户帐号已到期并停止" . $pnam)
}}}

sealin · 发表于 2013-6-10 10:24:45

那个收钱的就是作者本人啊，亲
自行删除吧，还是支持作者原创

47771885 · 发表于 2013-6-10 12:38:48

楼主好像实在是无聊了

qkhhgdpyg · 发表于 2013-6-11 09:55:26

是不是提前3天的？

qkhhgdpyg · 发表于 2013-6-11 09:57:21

用不了吧？

luye7 · 发表于 2013-6-11 11:00:57

用不用得，得试过才知道！

qkhhgdpyg · 发表于 2013-6-13 15:47:57

本帖最后由 qkhhgdpyg 于 2013-6-13 15:51 编辑

試過了，用不了，，，，沒反應，
我把一個用戶加了注釋，20130625
然後運行你的腳本，沒有反應。

有問題，不會檢測全部用戶。用戶有140多個，紅色的一行為檢測一個用戶，沒有140行。

qkhhgdpyg · 发表于 2013-6-13 16:04:11

如果有中文備註的或者不是規格備註的，檢測不了，會停止，不繼續檢測。
能改好不？

luye7 · 发表于 2013-6-15 11:48:04

忘了，直接在前面加个空格或者备注为[20130605]这样就行了！

luye7 · 发表于 2013-6-15 11:48:55

qkhhgdpyg 发表于 2013-6-13 15:47

登录/注册后可看大图

試過了，用不了，，，，沒反應，
我把一個用戶加了注釋，20130625
然後運行你的腳本，沒有反應。

忘了，直接在前面加个空格或者备注为[20130605]这样就行了！

账号		自动登录	找回密码
密码			注册

[脚本] 到期停用脚本（修改版）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子