View Single Post
  #1  
Old 04.11.2016, 21:17
LoSKi LoSKi is offline
JD Alpha
 
Join Date: Jul 2011
Posts: 20
Default Script Alternativo Mediante Reconexion Con Herramientas Externas

Hola os expongo el script Creado apartir de terceros es decir con herramienta externa a JD2.

El Script esta basado en VBScript (.vbs).
Lo que hace el script es conectar mediante Telnet hacia el router y reiniciarlo.


Yo lo eh probado en Router de Telefonica Home Station BHS RTA


Bueno vamos mano a la obra.

El Script donde pone "xxx" poner vuestra contraseña si lo teneis cambiada si no es así poner "1234" que es la de por defecto. El resto de cosas no varia ya que la puerta de enlace es la misma ha no ser que tengas 2 router y la tengas cambiada pero siempre el principal se suele poner en la "1". Y la segunda opción es el nombre de usuario que es "1234"

strComputer="192.168.1.1"
strUsername="1234"
strPassword="xxx"

Code:
Dim objShell
Dim objNetwork

Set objNetwork=CreateObject("WScript.Network")

strTitle="Telnet Demo"
strDefaultServer="Server01"
strDefaultUser=objNetwork.UserDomain & "\" & objNetwork.UserName
'strDefaultPassword="P@ssw0rd"

strComputer="192.168.1.1" 'InputBox("What server or device do you want to connect to?", strTitle,strDefaultServer)
If Len(strComputer)=0 Then WScript.quit

strUsername="1234" 'InputBox("What credential do you want to use",strTitle,strDefaultUser)
If Len (strUsername)=0 Then WScript.Quit

strPassword="xxx" 'InputBox("What password do you want to use?",strTitle,strDefaultPassword)
If Len (strPassword)=0 Then WScript.Quit

strReboot="reboot" 'InputBox("What password do you want to use?",strTitle,strDefaultPassword)
If Len (strPassword)=0 Then WScript.Quit

strExit="exit" 'InputBox("What password do you want to use?",strTitle,strDefaultPassword)
If Len (strPassword)=0 Then WScript.Quit

strY="y" 'InputBox("What password do you want to use?",strTitle,strDefaultPassword)
If Len (strPassword)=0 Then WScript.Quit

Set objShell=CreateObject("wscript.shell")
'Start Telnet
objShell.Run "Telnet " & strComputer
'Give app a chance to get started
WScript.Sleep 5000
objShell.AppActivate "Telnet " & strComputer

'Send login credentials
objShell.SendKeys strUsername & "~"
WScript.Sleep 5000
objShell.SendKeys strPassword & "~"
WScript.Sleep 5000
objShell.SendKeys strReboot & "~"
WScript.Sleep 5000
objShell.SendKeys strExit & "~"
WScript.Sleep 5000
objShell.SendKeys stry & "~"
WScript.Sleep 5000
Pegarlo en wordpad o bloc de notas y guardarlo como selecionar tipo de documento todos y en el nombre que querrais darle, yo por ejemplo le eh puesto Reboot.vbs OJO .vbs que es el formato.

Una vez echo eso abrir el JD2 y ir a Reconectar y Selecionais Reconexion Con Herramientas Externas
Debajo pone Comando dais a Selecionar y buscais la ruta donde tengais el script y abajo del todo clikear Usar Ejecutable alternativo a Windows.

Una vez todo eso echo si quereis darle a Prueba y el solo lo reiniciarael router.

PD: Para los mas vagos de copiar lo subo solo hay que editarlo y guardarlo como .vbs

Saludos y Contarme si funciona ! !
Attached Files
File Type: txt Reboots.txt (1.5 KB, 50 views)

Last edited by LoSKi; 04.11.2016 at 21:19.
Reply With Quote