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