linuxϵÄssh¡¢telnetµÇ¼½Å±¾£¨tcl£©

 ²Ù×÷ϵͳ£ºlinux£¨feroda4£©
tcl°æ±¾£ºtclsh8.4
expect£º5.43.0
sshµÇ¼½Å±¾
#!/usr/bin/tclsh8.4
package require Expect
set user "root"
set host "10.2.26.30"
spawn ssh $user@$host
expect {
             -re "password: $"       {exp_send "ÃÜÂë\r"; exp_continue}
}
telnetµÇ¼½Å±¾
#!/usr/bin/tclsh8.4
package require Expect
set user "test"
set host "10.2.26.30"
set port "23"
spawn telnet $host $port
expect {
            -re "login: $"         {exp_send "$user\r"; exp_continue}
            -re "Password: $"     {exp_send "testÃÜÂë\r"}
}
PS£º10.2.26.30ΪlinuxÖ÷»ú£¬ÈôµÇ¼ÆäËûÉ豸£¬¸ü¸ÄÆ¥Åä×Ö·û¼´¿É
http://hi.baidu.com/gfshop/blog/item/2b73a000a5528985e950cd8b.html