• Support
  • Articles
  • Resources
  • Products

verision 2 of switch testing macro

Moderator: boris

1 postPage 1 of 1

chinsue32
Newbie

Posts:
12
Joined: Mon Sep 10, 2007 5:50 pm
by chinsue32 » Mon Sep 17, 2007 1:44 am
I have added more efficient loops. a bad port logger.


Code: Select all

  1.  
  2. ; FOR CUSTOMIZING THIS MACRO ENTER 5 * ( ***** ) INTO FIND (CTRL-F)
  3. connect '/C=4';COM PORT
  4. setdlgpos 600 50
  5. showtt 0; HIDES TERATERM WINDOW -- 1 UNHIDES
  6. tempmessage=''
  7. strconcat tempmessage #13
  8. strconcat tempmessage ''
  9. strconcat tempmessage #13
  10. strconcat tempmessage ''
  11. statusbox 'For password recovery on a cisco IOS switch:\n Hold the mode button while plugging in the switch.\n  wait for the green light to go solid' 'Digital Warehouse'
  12. pingtestreport = ""
  13. :clearconfig
  14. wait 'switch:'
  15. closesbox
  16. statusbox 'Clearing config' '*****';ENTER COMPANYNAME
  17. sendln 'flash_init'
  18. wait 'switch:'
  19. sendln "del flash:config.text"
  20. wait '(y/n)?'
  21. sendln 'y'
  22. wait 'switch:'
  23. sendln "del flash:vlan.dat"
  24. wait '(y/n)?'
  25. sendln 'y'
  26. wait 'switch:'
  27. sendln 'boot'
  28. closesbox
  29. statusbox 'Booting' '*****'
  30. wait '[yes/no]: ' 'Press RETURN to get started'
  31. send 'n'#13
  32. sendln #13
  33. wait 'Switch>'
  34. sendln 'enable'
  35. closesbox
  36.  
  37. :setip
  38. inputbox 'Enter an address to Ping' '*****'
  39. ipaddress = inputstr
  40. inputbox 'Enter a Temporary IP address.' '*****';ENTER COMPANYNAME
  41. vlanaddress = inputstr
  42. inputbox 'Enter Subnet address.' '*****';ENTER COMPANYNAME
  43. subnet = inputstr
  44. vlan1 = ""
  45. strconcat vlan1 vlanaddress
  46. strconcat vlan1 ' '
  47. strconcat vlan1 subnet
  48. send #26
  49. sendln 'conf t'
  50. sendln 'line con 0'
  51. sendln 'logging sync'
  52. sendln 'exec-timeout 0 0'
  53. sendln 'int vlan1'
  54. sendln 'ip address ' vlan1
  55. sendln 'no shut'
  56.  
  57. ;      disable ports 1 - 48
  58. :disableports
  59. setsync 1
  60. send #26
  61. sendln 'conf t'
  62. wait 'Switch(config)#'
  63. for A 1 48
  64.     if A = 49 goto stoploop
  65.     bstr = ""
  66.     int2str bstr A
  67.     interfacenum = 'interface fastethernet0/'
  68.     strconcat interfacenum bstr
  69.     sendln interfacenum
  70.     sendln 'shut'
  71. next
  72.  
  73.  
  74. :stoploop
  75. send #26
  76. wait 'console by console'
  77.  
  78. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  79. :ping
  80. beep
  81. yesnobox 'Run Ping test?' '*****'
  82. if result=0 goto logging
  83. for A 1 12
  84.     if A = 13 goto ping2
  85.     pause 1
  86.     bstr = ""
  87.     int2str bstr A
  88.     interfacenum = "interface fastethernet0/"
  89.     strconcat interfacenum bstr
  90.     sendln 'conf t'
  91.     sendln interfacenum
  92.     sendln 'spanning-tree portfast'
  93.     sendln 'no shut'
  94.     sendln 'end'
  95.     wait 'console by console'
  96.     send #13
  97.     sendln 'ping'
  98.     sendln 'ip'
  99.     sendln ipaddress
  100.     sendln '100'
  101.     sendln #13
  102.     sendln #13
  103.     sendln #13
  104.     sendln #13
  105.     for C 1 100
  106.         wait '.' '!'
  107.         if result = 1 then count = count + 1
  108.         if count > 10 call badport
  109.     next
  110.  
  111.  
  112.     wait 'Switch#'
  113. next
  114. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  115.  
  116. :ping2
  117. messagebox 'Please plug in ports 13-24' '*****'
  118. for A 13 24
  119.     if A = 25 goto ping3
  120.     if A <1> 10 call badport
  121.     next
  122.     wait 'Switch#'
  123. next
  124. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  125. :ping3
  126. yesnobox 'Continue ping test?' '*****'
  127. if result = 0 goto logging
  128. messagebox 'Please plug in ports 25-36 ' '*****'
  129. for A 25 36
  130.     if A = 37 goto ping4
  131.     if A <1> 10 call badport
  132.     next
  133.     wait 'Switch#'
  134. next
  135. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  136. :ping4
  137. messagebox 'Please plug in ports 37-48' '*****'
  138. for A 37 48
  139.     if A = 49 goto logging
  140.     pause 2
  141.     bstr = ""
  142.     int2str bstr A
  143.     interfacenum = "interface fastethernet0/"
  144.     strconcat interfacenum bstr
  145.     sendln 'conf t'
  146.     sendln interfacenum
  147.     sendln 'spanning-tree portfast'
  148.     sendln 'no shut'
  149.     sendln 'end'
  150.     wait 'console by console'
  151.     send #13
  152.     sendln 'ping'
  153.     sendln 'ip'
  154.     sendln ipaddress
  155.     sendln '100'
  156.     sendln #13
  157.     sendln #13
  158.     sendln #13
  159.     sendln #13
  160.     for C 1 100
  161.         wait '.' '!'
  162.         if result = 1 then count = count + 1
  163.         if count > 10 call badport
  164.     next
  165.     wait 'Switch#'
  166. next
  167. ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  168.  
  169. :Logging
  170. timeout=0
  171.  
  172. showtt 1
  173. sendln 'show ver'
  174.  
  175. ; tempstr sets the default path to test docs
  176. tempstr = "C:\Documents and Settings\Geoffrey\Desktop\Test Docs\"
  177.  
  178. inputbox 'Enter a serial for this test Doc' 'Log Creation'
  179. ;add file extention
  180. strconcat inputstr '.txt'
  181. strconcat tempstr inputstr
  182. filename = tempstr
  183. logopen filename 0 0
  184. getdate date
  185. logwrite '           ' date#13#10
  186. logwrite '          **********************************************************************'#13#10
  187. logwrite '          **                                       **'#13#10
  188. logwrite '          **                                              **'#13#10
  189. logwrite '          **                                   **'#13#10
  190. logwrite '          **       ) **'#13#10
  191. logwrite '          **                                          **'#13#10
  192. logwrite '          **********************************************************************'#13#10
  193.  
  194. :createtestdoc
  195. timeout=5
  196. send $20
  197. sendln 'show ver'
  198. wait '--More--'
  199. send $20
  200. logwrite pingtestreport
  201. wait 'Switch#'
  202. logclose
  203. yesnobox 'Would you like me to test another?'
  204. if result=1 goto start
  205. statusbox 'Have a nice day!!!  :)'
  206. pause 15
  207. closesbox
  208. end
  209.  
  210. ;$$$$$$$$$$$$$$$$$$$$$4   Bad Port Subroutine
  211.  
  212. :badport
  213. showtt 0
  214. astr = ""
  215. ; portnumber
  216.  
  217. int2str astr A
  218. msgstr = 'There is a problem with portnumber '
  219. strconcat msgstr astr
  220. strconcat msgstr #13
  221. strconcat pingtestreport msgstr
  222. ;messagebox msgstr '*****'
  223. return
  224.  
  225.  
  226.  

1 postPage 1 of 1

Users browsing this forum: No registered users
cron