Posted to tcl by mjanssen at Tue Jun 24 15:28:16 GMT 2008view raw
- #!/usr/bin/expect -f
- exp_log_user 0
- spawn ssh [lindex $argv 0] [lindex $argv 2]
- set password [lindex $argv 1]
- expect {
- "Password:" { send "$password\r" ; exp_continue}
- eof {puts $expect_out(buffer); exit}
- }