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

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