| 
 | 
 
 
发表于 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 ) 
 
---------------------------------------------- 
脚本运行一次,按序修改账户密码.初始账户密码也请写在脚本 
 
没有精简脚本,容错也没考虑,够用就好.不浪费时间了 |   
 
 
 
 |