Posted to tcl by mjanssen at Tue Jun 24 15:28:16 GMT 2008view raw

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