|
发表于 2009-2-20 00:37:45
|
显示全部楼层
随便写了个,2.9.51上测试通过.
--------------------------------------------
:local name "pppoe-out1"
#接口名
:local user 1111/2222/33333/001555/dsaf/fasd/fafsd/@
#账户依次,用"/"分隔,结尾加标识符"@"
:local pass aaaa/bbbb/ccccc/132226/asndf/asvdf/asdf/@
#密码依次,顺序和账户对应
:local users [/interface pppoe-client get [/interface pppoe-client find name=$name] user]
:local passw [/interface pppoe-client get [/interface pppoe-client find name=$name] password]
:set u [:pick $user 0 [:find $user $users] ]
:set u [:len ($u . $users)]
:set u [:pick $user ($u+1) [:find $user "/@"]]
:set u [:pick $u 0 [:find $u "/"]]
:set p [:pick $pass 0 [:find $pass $passw] ]
:set p [:len ($p . $passw)]
:set p [:pick $pass ($p+1) [:find $pass "/@"]]
:set p [:pick $p 0 [:find $p "/"]]
/interface pppoe-client set [/interface pppoe-client find name=$name] user=$u
/interface pppoe-client set [/interface pppoe-client find name=$name] password=$p
:log info ("Change " . $name . " user=" . $u . ",password=" . $p )
----------------------------------------------
脚本运行一次,按序修改账户密码.初始账户密码也请写在脚本
没有精简脚本,容错也没考虑,够用就好.不浪费时间了 |
|