save 441 B

12345678910111213141516171819202122232425
  1. set timeout 10
  2. set IP [lindex $argv 0]
  3. set LOGIN [lindex $argv 1]
  4. set PASSWORD [lindex $argv 2]
  5. set METHOD [lindex $argv 3]
  6. if {[string match "TELNET" $METHOD]} {
  7. spawn telnet $IP
  8. expect "Username:*"
  9. send "$LOGIN\r"
  10. } elseif {[string match "SSH" $METHOD]} {
  11. spawn ssh $LOGIN@$IP
  12. expect {
  13. "(yes/no" {
  14. send "yes\r"
  15. }
  16. }
  17. }
  18. expect "Password:*"
  19. send "$PASSWORD\r"
  20. expect "*#"
  21. send "write\r"
  22. expect "*#"
  23. send "exit\r"