VBSCRIPT: COPIA DE CONFIGURACIONES A UN TFTP

VBSCRIPT: COPIA DE CONFIGURACIONES A UN TFTP

Automatización para copiar el archivo de configuración de varios switch dell ,en este caso a un servidor tftp utilizando  un script .vbs y el Secure crt.

Como material de referencia tome información de los siguientes enlaces:

http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html

http://loquehayenmedio.blogspot.com/search/label/VBScript

Para la ejecución dl script inicio sesión en un router utilizando el secureCRT y busco el scritp previa mente guardado.

Acá dejo el archivo el cual se edita en un archivo de texto y se guarda con la extensión .vbs :

Básicamente explico las variables para poder ejecutar el script, en lo enlaces anteriores esta la información de las características de programación.

*************************************************************************

#$language = "VBScript"

#$interface = "1.0"

                Sub Main

                Const username = "USUARIO" ' Usuario que utilizara para conectarse al switch

                Const password = "CONTRASEÑA" ' Contraseña válida para el USUARIO

                Const passenable = "CONT-ENABLE" ' Contraseña enable  de ser requerido

                const yes = "y"

                Const DEVICE_FILE_PATH = "E:\IP.TXT" 'Archivo  con direccionamiento IP

                Const DEVICE_FILE_PATH2 = "E:\CONFIGURACION.TXT"   'Archivo nombres para guardar las configuraciones.

   

                Dim fso

                Set fso = CreateObject("Scripting.FileSystemObject")  'Creacion de objeto para el archivo IP.

                Dim fso2

                Set fso2 = CreateObject("Scripting.FileSystemObject") 'Creacion de objeto para el archivo CONFIGURACION

                Dim fil

                Set fil = fso.OpenTextFile(DEVICE_FILE_PATH) 'Variable

                Dim fil2

                Set fil2 = fso.OpenTextFile(DEVICE_FILE_PATH2)

                Dim ip ' variable para llamar la ip del switch

                Dim ip2 'variable para llamar el nombre del archivo (como va a quedare guardado en el tftp)

                Dim line

                Dim line2

                Dim cnxnString

   

                While Not fil.AtEndOfStream

                line = fil.ReadLine   ' forma como se leera el archivo

                line2 = fil2.readline

                 ip = Split(line, ";")(0)  'sintaxis para llamar la ip

               

                 ip2 = Split(line2, ";")(0) 'sintaxis para llamar el nombre del archivo

                cnxnString = "TELNET " & ip & "23"

                crt.Screen.Send "telnet " & ip & chr(13)  'formato para ejecutar las sentencias cli

                crt.Screen.WaitForString "User:"

                crt.Screen.Send username

                crt.Screen.Send vbCr

                crt.Screen.WaitForString "Password:"

                 crt.Screen.Send password

                crt.Screen.Send vbCr

                crt.Screen.WaitForString ">"       

                crt.Screen.Send vbCr

                crt.Screen.Send " enable" & chr(13)

                crt.Screen.Send passenable

                crt.Screen.Send vbCr

                crt.Screen.Send "copy running-config startup-config" & chr(13) ´comando a enviar

                crt.Screen.WaitForString "(y/n)" 'lo que esperamos que salga

                crt.Screen.Send yes 'la respuesta que damos

                crt.Screen.Send vbCr 'espera para enviar el siguiente comando

                crt.Screen.Send "copy running-config backup-config" & chr(13)

                crt.Screen.WaitForString "(y/n)"

                crt.Screen.Send yes

                crt.Screen.Send vbCr

                crt.Screen.Send "copy running-config tftp://192.168.5.55/" & ip2 & chr(13)

                crt.Screen.WaitForString "(y/n)"

                crt.Screen.Send yes

                crt.Screen.Send vbCr

                crt.Screen.Send "q" & chr(13)

                crt.Screen.Send vbCr

                crt.Screen.WaitForString "closed by foreign host]"

                 Wend

    fil.Close

End Sub

*****************************************************************************

IP.TXT

192.168.1.1;

192.168.2.1;

192.168.3.1;

****************************************************************************

CONFIGURACION.TXT

SWITCH1;

SWITCH2;

SWITCH3;

*****************************************************************************