Posted to tcl by funa at Mon Dec 11 08:58:06 GMT 2017view raw

  1. #/usr/bin/expect
  2.  
  3. set timeout -1
  4. spawn ssh -o StrictHostKeyChecking=no funabashi@[lindex $argv 0]
  5. expect "password"
  6. send -- "$env(PASS)\r"
  7. send -- "\r"
  8. expect "$ "
  9. send "arp -ne\r"
  10. expect "$ "
  11. interact
  12.