Posted to tcl by funa at Mon Dec 11 08:53:28 GMT 2017view pretty
#/usr/bin/expect set $env(PASS) set timeout -1 spawn ssh -o StrictHostKeyChecking=no funabashi@$1 expect "password" send -- "PASS\r" send -- "\r" expect "$ " send "arp -ne\r" expect "$ " interact