AutoLogin en Consola con VBScript

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:




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