Te damos la bienvenida a la comunidad de T!Estás a un paso de acceder al mejor contenido, creado por personas como vos.

O iniciá sesión con
¿No tenés una cuenta?
Hoy vamos a hacer un simple script en VBScript. Lo que haremos es realizar unos pasos para crear por ejemplo un autologin, esto simplemente lo que hará es automáticamente completar los datos que queramos en un tiempo especificado.

Set concha = CreateObject("WScript.Shell")
concha.run"cmd"
WScript.Sleep 100
concha.SendKeys"color a"
concha.SendKeys("{Enter}")
WScript.Sleep 100


Como vemos utilizaremos una variable llamada concha la cual esta constituida por un objeto en particular, luego trabajaremos con las propiedades de este objeto, por ejemplo con run podemos ejecutar cualquier programa o comando; en este caso cmd. Luego tenemos a Sleep o tiempo... Luego SendKeys, lo que hará es escribir el texto que le indiquemos sin necesidad de presionar nada.

Luego lo que podemos hacer con estas propiedades es por ejemplo loguearnos a nuestro router o equipamiento inalámbrico:

concha.SendKeys"telnet 192.168.1.20"
concha.SendKeys("{Enter}")
WScript.Sleep 100

concha.SendKeys"ubnt"
concha.SendKeys("{Enter}")
WScript.Sleep 100

concha.SendKeys"ubnt"
concha.SendKeys("{Enter}")
WScript.Sleep 100


Utilizando telnet y la IP de nuestro equipamiento, especificando usuario y contraseña, podemos hacer un login automatico:


link: http://www.youtube.com/watch?v=SrbmYhLIVFs

Código completo:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script AutoLogin Ubiquiti                                '
' Creado por: Välh Järvelä                                 '
' Dia: 06-07-12 12:31                                      '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set concha = CreateObject("WScript.Shell")
concha.run"cmd"
WScript.Sleep 100
concha.SendKeys"color a"
concha.SendKeys("{Enter}")
WScript.Sleep 100

concha.SendKeys"telnet 192.168.1.20"
concha.SendKeys("{Enter}")
WScript.Sleep 100

concha.SendKeys"ubnt"
concha.SendKeys("{Enter}")
WScript.Sleep 100

concha.SendKeys"ubnt"
concha.SendKeys("{Enter}")
WScript.Sleep 100