#!/usr/bin/env expect -f | |
set force_conservative 0 ;# set to 1 to force conservative mode even if | |
;# script wasn't run conservatively originally | |
if {$force_conservative} { | |
set send_slow {1 .1} | |
proc send {ignore arg} { | |
sleep .1 | |
exp_send -s -- $arg | |
} | |
} | |
set username [lindex $argv 0] | |
set password [lindex $argv 1] | |
set timeout -1 | |
spawn passwd $username | |
match_max 100000 | |
expect "New Password: " | |
send -- "$password\r" | |
expect "Re-enter new Password: " | |
send -- "$password\r" | |
expect eof |