• Olá Visitante, se gosta do forum e pretende contribuir com um donativo para auxiliar nos encargos financeiros inerentes ao alojamento desta plataforma, pode encontrar mais informações sobre os várias formas disponíveis para o fazer no seguinte tópico: leia mais... O seu contributo é importante! Obrigado.

Reiniciar router Thomson da MEO por telnet com 1 click

maar3amt

Administrator
Team GForum
Entrou
Set 19, 2006
Mensagens
7,803
Gostos Recebidos
28
Viva,

Para tornarem este script executável basta que salvem estas linhas de código num ficheiro com extensão .VBS tipo "reboot.vbs".
Para executar em ambiente windows basta fazer duplo click no ficheiro salvo.


PS. Para que este script funcionar terá de ter o telnet activo no seu computador.


'FICHEIRO REBOOT.VBS
'------------------------------------------------------------------
' By
' http://www.geralfoum
' -----------------------------------------------------------------------------
Set oShell = CreateObject("WScript.Shell")
oShell.run "cmd.exe"
WScript.Sleep 500
oShell.SendKeys "telnet 192.168.1.254"
oShell.SendKeys ("{Enter}")
WScript.Sleep 1000
oShell.SendKeys "Administrator"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "3!play"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "system"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "reboot"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "exit"
oShell.SendKeys ("{Enter}")
WScript.Sleep 100
oShell.SendKeys "%"
 
Topo