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

#/usr/bin/expect

set timeout -1
spawn ssh -o StrictHostKeyChecking=no funabashi@[lindex $argv 0]
expect "password"
send -- "$env(PASS)\r"
send -- "\r"
expect "$ "
send "arp -ne\r"
expect "$ "
interact