Posted to tcl by Damonc at Wed Nov 07 22:50:38 GMT 2007view raw

  1. #!/usr/bin/expect -f
  2. # Script written by Tim Nelson
  3. # uses tcl\expect
  4.  
  5. spawn telnet 192.168.100.100
  6. send "trango\r"
  7. send "password ro\r"
  8. expect "New Password (4 to 16 characters):"
  9. send "passCust\r"
  10. expect "Confirm Password:"
  11. send "passCust\r"
  12.  
  13. send "password rw\r"
  14. expect "New Password (4 to 16 characters):"
  15. send "pass\r"
  16. expect "Confirm Password:"
  17. send "pass\r"
  18.  
  19. ## Prompt the user for a device number.
  20. send_user "Please enter a device number: "
  21. expect_user {
  22. -re {[0-9]+} {
  23. set device $expect_out(0,string)
  24. } -re .+ {
  25. send_user "Invalid device number.\n"
  26. send_user "Please enter a device number: "
  27. exp_continue
  28. }
  29. }
  30.  
  31. send "set baseid 9\r"
  32. send "set apid 1\r"
  33. send "set defaultopmode su\r"
  34. send "set suid 179\r"
  35. send "freq writescan 3 h 4 h 2 h 1 h 5 h 6 h\r"
  36. send "remarks su179\r"
  37.  
  38. send "ipconfig 192.168.209.179 255.255.255.0 192.168.209.1\r"
  39. expect "save and activate ? (y/n)"
  40. send "y\r"
  41. interact