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.
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:
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:
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