API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 28th, 2016
146
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.80 KB | None | 0 0
raw download clone embed print report
  1. #$language = "VBScript"
  2. #$interface = "1.0"
  3. Dim NISIP
  4. Dim aux
  5. Dim aux1
  6. aux1=0
  7. 'Ingresar IPDSLAM:A/T/P
  8. strDSLAM ="10.34.4.10:0/14/60"
  9. 'Separación de datos del DSLAM
  10. vDSLAM=split(strDSLAM,":",-1)
  11. 'Acceso a la MPLS ("USUARIO","CONTRASEÑA")
  12. LOGIN=array("antho.aten","1d68uh5t")
  13. 'Ingresar ("IPNISIP o NOMBRE de CANG","INTERFAZ", "CUENTA PADRE")
  14. NISIP=array("CANG-BAQ-NISIP04","eth5/1/0.0a2e:477.928:21911","YOQUE852.3254")
  15. vNISIP=split(NISIP(1),":",-1) 'Separa interfaz para obtener el numero del eth5, y el vlan y svlan
  16. vNISIP1=split(vNISIP(0),"/",-1) 'vNISIP1(0)=eth5
  17. vVLAN=split(vNISIP(1),".",-1) ' vlan=vVLAN(0) svlan=vVLAN(1)
  18. 'PROGRAMA PRINCIPAL
  19. 'chr(13) ENTER
  20. 'chr(9) TAB
  21. Sub Main
  22. vPAT=split(vDSLAM(1),"/",-1)
  23. 'Ingreso al DSLAM
  24. crt.Screen.Send "telnet " & vDSLAM(0) & chr(13)
  25. 'Valida tipo de DSLAM
  26. Dim Respuesta
  27. Respuesta=crt.Screen.WaitForStrings("ALCATEL","Huawei Integrated Access Software (MA5600)",">>User name:","login:","Huawei MA5100 Multi-service Access Module.")
  28. 'Pruebas según DSLAM
  29. select case Respuesta
  30. Case 1
  31. 'DSLAM ALCATEL
  32. crt.Screen.WaitForString "login:"
  33. crt.Screen.Send LOGIN(0) & chr(13)
  34. crt.Screen.WaitForString "password:"
  35. crt.Screen.Send LOGIN(1) & chr(13)
  36. crt.Screen.WaitForString "leg:antho.aten>#"
  37. crt.Screen.Send "show interface port xdsl-line:1/" & vPAT(0) & "/" & vPAT(1) & "/" & vPAT(2) & chr(13)
  38. crt.Screen.Send "show xdsl operational-data far-end line 1/" & vPAT(0) & "/" & vPAT(1) & "/" & vPAT(2) & " detail" & chr(13)
  39. crt.Screen.Send "logout" & chr(13)
  40. Case 2
  41. 'DSLAM Huawei 5600
  42. crt.Screen.WaitForString ">>User name:"
  43. crt.Screen.Send LOGIN(0) &"@telecom" & chr(13)
  44. crt.Screen.WaitForString ">>User password:"
  45. crt.Screen.Send LOGIN(1) & chr(13)
  46. crt.Screen.WaitForString ">"
  47. crt.Screen.Send "enable" & chr(13)
  48. crt.Screen.WaitForString "#"
  49. crt.Screen.Send "config" & chr(13)
  50. crt.Screen.WaitForString "(config)#"
  51. crt.Screen.Send "interface ad" & chr(9) & vPAT(0) & "/" & vPAT(1) & chr(13)
  52. 'Condición de ingreso a la interfaz adsl
  53. While aux=0
  54. Respuesta=crt.Screen.WaitForStrings ("Failure: System is busy, please retry after a while","#")
  55. if Respuesta= 1 then
  56. crt.Screen.WaitForString "#"
  57. crt.Screen.Send "interface ad" & chr(9) & vPAT(0) & "/" & vPAT(1) & chr(13)
  58. else
  59. aux=1
  60. end if
  61.  
  62. Wend
  63.  
  64. crt.Screen.Send "dis" & chr(9) & "por" & chr(9) & "s" & chr(9) & vPAT(2) & chr(13)
  65. crt.Screen.WaitForString "#"
  66. crt.Screen.Send "disp" & chr(9) & "lin" & chr(9) & "op" & chr(9) & vPAT(2) & chr(13)
  67. Respuesta=crt.Screen.WaitForStrings ("Are you sure to continue? (y/n)[n]:","Failure:")
  68. if Respuesta=1 then
  69. crt.Screen.Send "y" & chr(13)
  70. end if
  71. crt.Screen.WaitForString "#"
  72. crt.Screen.Send " quit" & chr(13) & "quit" & chr(13) & "quit" & chr(13)
  73. crt.Screen.WaitForString "Are you sure to log out? (y/n)[n]:"
  74. crt.Screen.Send "y" & chr(13)
  75. Case 3
  76. 'DSLAM Huawei 5600/5000 sin mensaje inicial
  77. crt.Screen.Send LOGIN(0) &"@telecom" & chr(13)
  78. crt.Screen.WaitForString ">>User password:"
  79. crt.Screen.Send LOGIN(1) & chr(13)
  80. crt.Screen.WaitForString ">"
  81. crt.Screen.Send "enable" & chr(13)
  82. crt.Screen.WaitForString "#"
  83. crt.Screen.Send "config" & chr(13)
  84. crt.Screen.WaitForString "(config)#"
  85. crt.Screen.Send "interface ad" & chr(9) & vPAT(0) & "/" & vPAT(1) & chr(13)
  86. 'Condición de ingreso a la interfaz adsl
  87. While aux=0
  88. Respuesta=crt.Screen.WaitForStrings ("Failure:","#")
  89. if Respuesta= 1 then
  90. crt.Screen.WaitForString "#"
  91. crt.Screen.Send "interface ad" & chr(9) & vPAT(0) & "/" & vPAT(1) & chr(13)
  92. else
  93. aux=1
  94. end if
  95.  
  96. Wend
  97.  
  98. crt.Screen.Send "dis" & chr(9) & "por" & chr(9) & "s" & chr(9) & vPAT(2) & chr(13)
  99. crt.Screen.WaitForString "#"
  100. crt.Screen.Send "disp" & chr(9) & "lin" & chr(9) & "op" & chr(9) & vPAT(2) & chr(13)
  101. Respuesta=crt.Screen.WaitForStrings ("Are you sure to continue? (y/n)[n]:","Failure:")
  102. if Respuesta=1 then
  103. crt.Screen.Send "y" & chr(13)
  104. end if
  105. crt.Screen.Send " quit" & chr(13) & "quit" & chr(13) & "quit" & chr(13)
  106. crt.Screen.WaitForString "Are you sure to log out? (y/n)[n]:"
  107. crt.Screen.Send "y" & chr(13)
  108.  
  109. case 4
  110. 'DSLAM ALCATEL
  111. crt.Screen.Send LOGIN(0) & chr(13)
  112. crt.Screen.WaitForString "password:"
  113. crt.Screen.Send LOGIN(1) & chr(13)
  114. crt.Screen.WaitForString "leg:antho.aten>#"
  115. crt.Screen.Send "show interface port xdsl-line:1/" & vPAT(0) & "/" & vPAT(1) & "/" & vPAT(2) & chr(13)
  116. crt.Screen.Send "show xdsl operational-data far-end line 1/" & vPAT(0) & "/" & vPAT(1) & "/" & vPAT(2) & " detail" & chr(13)
  117. crt.Screen.Send "logout" & chr(13)
  118.  
  119. case 5
  120. 'Huawei 5100
  121. crt.Screen.WaitForString ">>User name:"
  122. crt.Screen.Send "Gics" & chr(13)
  123. crt.Screen.WaitForString ">>User password:"
  124. crt.Screen.Send "c4mpusp4rt1#" & chr(13)
  125. crt.Screen.WaitForString ">"
  126. crt.Screen.Send "enable" & chr(13)
  127. crt.Screen.WaitForString "#"
  128. crt.Screen.Send "configure" & chr(13)
  129. crt.Screen.WaitForString chr(123) & " terminal<K> " & chr(125) & ":"
  130. crt.Screen.Send "terminal" & chr(13)
  131. crt.Screen.WaitForString "#"
  132. crt.Screen.Send "show " & "board " & vPAT(0) & "/" & vPAT(1) & chr(13)
  133. crt.Screen.WaitForString "---- More ( Press 'Q' to break ) ----"
  134. crt.Screen.Send " " & chr(13)
  135. crt.Screen.WaitForString "#"
  136. crt.Screen.Send "exit" & chr(13)
  137. crt.Screen.WaitForString "#"
  138. crt.Screen.Send "exit" & chr(13)
  139.  
  140. End Select
  141.  
  142. crt.Screen.WaitForString "$"
  143. 'Seleccionar IP del NISIP
  144. select case NISIP(0)
  145.  
  146. case "CANG-BOG-NISIP12"
  147. strIPNISIP="10.251.2.65"
  148. aux=0
  149. case "CANG-BUC-NISIP03"
  150. strIPNISIP="10.251.3.65"
  151. aux=0
  152. case "CANG-BAQ-NISIP04"
  153. strIPNISIP="10.251.3.64"
  154. aux=0
  155. case "CANG-IBA-NISIP04"
  156. strIPNISIP="10.251.5.65"
  157. aux=0
  158. case "CANG-CLO-NISIP04"
  159. strIPNISIP="10.251.5.66"
  160. aux=0
  161. case "CANG-CAR-NISIP03"
  162. strIPNISIP="10.251.4.64"
  163. aux=0
  164. case "CANG-BOG-NISIP10"
  165. strIPNISIP="10.251.2.64"
  166. aux=0
  167. case "CANG-BAQ-NISIP04"
  168. strIPNISIP="10.251.3.64"
  169. aux=0
  170. case "CANG-BAQ-NISIP05"
  171. strIPNISIP="10.251.3.66"
  172. aux=0
  173. case "CANG-BOG-NISIP13"
  174. strIPNISIP="10.251.2.66"
  175. aux=0
  176. case "CANG-BUC-NISIP04"
  177. strIPNISIP="10.251.3.67"
  178. aux=0
  179. case "CANG-SIB-NISIP01"
  180. strIPNISIP="10.251.2.67"
  181. aux=0
  182. case "CANG-SIB-NISIP02"
  183. strIPNISIP="10.251.2.68"
  184. aux=0
  185. case else
  186. strIPNISIP=NISIP(0)
  187. aux=1
  188. End select
  189.  
  190. 'Ingreso al NISIP
  191. crt.Screen.Send "ssh " & strIPNISIP & chr(13)
  192. if aux=0 then
  193. crt.Screen.WaitForString "Are you sure you want to continue connecting (yes/no)? "
  194. crt.Screen.Send "yes" & chr(13)
  195. crt.Screen.WaitForString "Password: "
  196. crt.Screen.Send LOGIN(1) & chr(13)
  197. crt.Screen.WaitForString ">"
  198. crt.Screen.Send "display access-user username " & NISIP(2) & chr(13)
  199. crt.Screen.WaitForString ">"
  200. crt.Screen.Send "display access-user interface GigabitEthernet " & vNISIP1(0) & chr(27) & "[D" & chr(8) & chr(8) & chr(8) & chr(27) & "[C" & "/1/0.1 pevlan " & vVLAN(0) & " cevlan " & vVLAN(1) & chr(13)
  201. else
  202. crt.Screen.WaitForString "Are you sure you want to continue connecting (yes/no)? "
  203. crt.Screen.Send "yes" & chr(13)
  204. Respuesta=crt.Screen.WaitForStrings ("Username:","'s password:")
  205. if Respuesta=1 then
  206. crt.Screen.Send LOGIN(0) & chr(13)
  207. crt.Screen.WaitForString chr(13) & "Password: "
  208. crt.Screen.Send LOGIN(1) & chr(13)
  209. else
  210. crt.Screen.Send LOGIN(1) & chr(13)
  211. crt.Screen.WaitForString "Username:"
  212. crt.Screen.Send LOGIN(0) & chr(13)
  213. crt.Screen.WaitForString chr(13) & "Password: "
  214. crt.Screen.Send LOGIN(1) & chr(13)
  215. end if
  216. crt.Screen.WaitForString ">"
  217. crt.Screen.Send "en 5" & chr(13)
  218. crt.Screen.WaitForString "#"
  219. crt.Screen.Send "show" & chr(9) & "subsc" & chr(9) & "s" & chr(9) & "in" & chr(9) & vNISIP(0) & chr(13)
  220. end if
  221. 'crt.Screen.Send "quit" & chr(13) & "exit" & chr(13)
  222. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!