Posted to tcl by mjanssen at Tue Jun 24 15:27:06 GMT 2008view pretty

#!/usr/bin/expect -f
spawn ssh [lindex $argv 0] [lindex $argv 2]
set password [lindex $argv 1]
expect {
  "Password:"  {exp_log_user 0 ; send "$password\r" ; exp_log_user 1 ; exp_continue}
  eof {exit}
}