Ayuda Programilla relleno plantilla

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
aveigal
Mensajes: 1
Registrado: 08 Ene 2015, 17:02

Ayuda Programilla relleno plantilla

Mensaje por aveigal »

Hola a todos.

Necesito hacer un script para rellenar unas plantillas de configuración de unos routers y he desempolvado mis apuntes de programación en C, pero el resultado es un poquito precario, así que investigando un poco he visto el potencial de Autoit pero la verdad es que no soy capaz de encontrar el camino.

Lo que debe hacer el script es lo siguiente:

1º Paso:

- Pedir el identificativo del equipo.
- Pedir la IP LAN.-> ZZZ.ZZZ.ZZZ.ZZZ
- Pedir el USER. -> XXXXXXXXXX
- Pedir la PASS. -> YYYYYYYYYY

2º Paso (automático).

- Generar las plantillas con esos datos. (sendos archivos en texto plano)
- Guardar esos archivos como "profile.epr" dentro de las carpetas tmp. (estructura determinadaque requiere el router).
- Comprimir en ".tar" las carpetas etc y tmp de cada perfil.
- Comprimir dicho ".tar" en ".gz"
- Renombrar el archivo final a ".tgz"

El primer paso estoy seguro que es muy sencillo pero ya no se si estoy saturado de tanta información o es que no soy capaz de hacerme con la sintaxis. Lo que he logrado hasta ahora no ha sido más que la creación de la interfaz GUI.

Os agradecería mucho una ayuda, mientras seguiré peleandome a ver si logro generar al menos el TXT con los campos cubiertos.

Muchas gracias de antemano a todos.


#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>


$GUI = GUICreate("Generador perfiles", 275, 207, -1, -1)
Local $Generar = GUICtrlCreateButton("Generar Perfiles", 60, 140, 150, 50)
Local $ICT = GUICtrlCreateInput("", 140, 10, 110, 20)
Local $IPLAN = GUICtrlCreateInput("", 140, 40, 110, 20)
Local $USER = GUICtrlCreateInput("", 140, 70, 110, 20)
Local $PASS = GUICtrlCreateInput("", 140, 100, 110, 20)
Local $Label3 = GUICtrlCreateLabel("Indentificador:", 20, 10, 70, 20)
Local $Label2 = GUICtrlCreateLabel("IP LAN:", 20, 40, 80, 20)
Local $Label5 = GUICtrlCreateLabel("Usuario:", 20, 70, 90, 20)
Local $Label4 = GUICtrlCreateLabel("Contraseña:", 20, 100, 110, 20)
GUISetState()

While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func Generar()
MsgBox(0,"Generador perfiles ","Se ha generado el perfil para este router")
EndFunc
Responder