5ess switch Password tool.

[oneraider]

;***************************************************
;* This file automates password changes on Lucent *
;* 5ESS and can be modified for other unix based *
;* systems that require you to change your password*
;* every ? days. You can opt to keep your current *
;* Password or change it. *
;***************************************************

integer status
string CURPASS
string NEWPASS
integer QUES = 6

proc main

dialogbox 0 7 17 288 63 2 "Password changer."
text 1 10 7 94 11 "Enter your current password." left
editbox 2 115 7 54 11 CURPASS MASKED
radiogroup 3 QUES
radiobutton 6 187 7 42 11 "Keep it?"
radiobutton 7 187 28 49 11 "Change it?"
radiobutton 8 238 7 42 11 "Forced?"
radiobutton 9 238 28 42 11 "Forced?"
endgroup
text 4 10 28 80 11 "Change password?" left
editbox 5 115 28 54 11 NEWPASS MASKED
pushbutton 10 187 42 40 13 "OK" OK DEFAULT
pushbutton 11 238 42 40 13 "Cancel" CANCEL
enddialog


dlgevent 0 status
while ! ((status == 10)||(status == 11))
dlgevent 0 status
endwhile

if status == 11
exit
endif

if QUES == 6
transmit "120^M"
pause 2
sendvkey 0x72
pause 2
strfmt s0 "CHGSSWD:OLD=`"%s`",NEW=`"t31c0v`";" CURPASS
transmit s0
waitfor &quot;<&quot;
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;t31c0v`&quot;,NEW=`&quot;sw1mme`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;sw1mme`&quot;,NEW=`&quot;qm1c3d`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
strfmt s0 &quot;CHGSSWD:OLD=`&quot;qm1c3d`&quot;,NEW=`&quot;%s`&quot;;&quot; CURPASS
transmit s0

endif
if QUES == 7
transmit &quot;120^M&quot;
pause 2
sendvkey 0x72
pause 2
strfmt s0 &quot;CHGSSWD:OLD=`&quot;%s`&quot;,NEW=`&quot;t31c0v`&quot;;&quot; CURPASS
transmit s0
waitfor &quot;<&quot;
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;t31c0v`&quot;,NEW=`&quot;sw1mme`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;sw1mme`&quot;,NEW=`&quot;qm1c3d`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
strfmt s0 &quot;CHGSSWD:OLD=`&quot;qm1c3d`&quot;,NEW=`&quot;%s`&quot;;&quot; NEWPASS
transmit s0
endif
if QUES == 8
strfmt s0 &quot;%s^M&quot; CURPASS
transmit s0
waitfor &quot;Enter new password:&quot;
transmit &quot;t3lc0v^M&quot;
waitfor &quot;Re-enter new password:&quot;
transmit &quot;t3lc0v^M&quot;
waitfor &quot;OK&quot;
pause 10
transmit &quot;120^M&quot;
pause 2
sendvkey 0x72
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;t3lc0v`&quot;,NEW=`&quot;sw1mme`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;sw1mme`&quot;,NEW=`&quot;qm1c3d`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
strfmt s0 &quot;CHGSSWD:OLD=`&quot;qm1c3d`&quot;,NEW=`&quot;%s`&quot;;&quot; CURPASS
transmit s0
endif
if QUES == 9
strfmt s0 &quot;%s^M&quot; CURPASS
transmit s0
waitfor &quot;Enter new password:&quot;
transmit &quot;t3lc0v^M&quot;
waitfor &quot;Re-enter new password:&quot;
transmit &quot;t3lc0v^M&quot;
waitfor &quot;OK&quot;
pause 10
transmit &quot;120^M&quot;
pause 2
sendvkey 0x72
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;t3lc0v`&quot;,NEW=`&quot;sw1mme`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
transmit &quot;CHGSSWD:OLD=`&quot;sw1mme`&quot;,NEW=`&quot;qm1c3d`&quot;;&quot;
waitfor &quot;<&quot;
pause 2
strfmt s0 &quot;CHGSSWD:OLD=`&quot;qm1c3d`&quot;,NEW=`&quot;%s`&quot;;&quot; NEWPASS
transmit s0
endif
Endproc

 

[teletubby5e]

thanks. i have some more 5ess provisioning scripts if you are interested. rcv:apptext stuff.

 

[oneraider]

teletubby5e
That would be great. Drop them in the forum or email. raider@raidersplace.com