JDownloader Community - Appwork GmbH
 

Reply
 
Thread Tools Display Modes
  #1  
Old 04.11.2016, 20:17
LoSKi LoSKi is offline
Junior Loader
 
Join Date: Jul 2011
Posts: 11
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 20:19.
Reply With Quote
  #2  
Old 23.06.2017, 17:00
Santivalen Santivalen is offline
Modem User
 
Join Date: Jun 2017
Posts: 1
Default

LoSKi ojalá le haya funcionado a alguien este script, a mí no. No sé si haya hecho algo mal, copié y pegué en bloc de notas y lo edité yo porque no pude bajar el archivo adjunto, quizás por no tener suficientes privilegios para hacerlo. Le cambié el nombre de usuario porque el mío es "admin" y la contraseña es "1234". Hice una prueba y el JD2 me lanzó esta respuesta:

Windows Script Host

Secuencia de comandos: C:\Users\Santiago\Videos\Reboots.vbs
Línea: 31
Carácter: 1
Error: El sistema no puede encontrar el archivo especificado.
Código: 80070002
Origen: (null)
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

All times are GMT +2. The time now is 18:36.
Provided By AppWork GmbH | Privacy | Imprint
Parts of the Design are used from Kirsch designed by Andrew & Austin
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.