Posted to tcl by nvrpunk at Wed Nov 07 22:37:25 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. send "set baseid 9\r"
  20. send "set apid 1\r"
  21. send "set defaultopmode su\r"
  22. send "set suid 179\r"
  23. send "freq writescan 3 h 4 h 2 h 1 h 5 h 6 h\r"
  24. send "remarks su179\r"
  25.  
  26. send "ipconfig 192.168.209.179 255.255.255.0 192.168.209.1\r"
  27. expect "save and activate ? (y/n)"
  28. send "y\r"
  29. interact
  30.