ssh.tcl

ssh.tcl

#!/usr/bin/expect
set timeout 60
while {1} {
  spawn /usr/bin/ssh -NCD :7070 111111@111.com
  expect {
    "password:" { send "111111\r" }
  }
  interact {
    timeout 60 { send " " }
    eof { exp_continue }
  }
}