Page 1 sur 1
[R] Redémarrage livebox
Posté : ven. 17 sept. 2010 15:51
par astaroth
Bonjour!
Voila je suis a la recherche d'un script pour redémarrer ma livebox 2 =)
Voila la marche a suivre est la suivante (sauf si vous me proposer mieux
)
Ouvrir une page internet 192.168.1.1
Entrer le mot de passe de la livebox2 a son emplacement : admin
Aller a la page redémarrage de la livebox
Cliquer sur Relancer la connection puis fermer la page.
Voila si quelqu'un sait faire ça, ça serait sympa =)
Merci !
Re: [..] Redémarrage livebox
Posté : ven. 17 sept. 2010 17:45
par Yogui
Bonjour,
en passant par un telnet.
je n'ai pas autoit je regarderai ça ce soir
pour mémoire google m'a indiqué :
Code : Tout sélectionner
192.168.1.1
WAIT "login"
SEND "root\m"
WAIT "Password"
SEND "1234\m"
WAIT "[root @ home]$"
SEND "reboot"
WAIT "[root @ home]$"
SEND "exit"
WAIT "[root @ home]$"
Re: [..] Redémarrage livebox
Posté : ven. 17 sept. 2010 17:55
par astaroth
Oui j’avais trouver ça sur google aussi, mais c'est apparemment pour les anciennes livebox. Je l'ai tester et il ne se passe rien.
Edit: Oh bah en fait je l'avait mal utilisé, ca fonctionne ^^'
Merci ! =)
Re: [..] Redémarrage livebox
Posté : ven. 17 sept. 2010 18:01
par Yogui
n'ayant pas de livebox je ne pourai pas tester
votre version de livebox est ?
Re: [..] Redémarrage livebox
Posté : ven. 17 sept. 2010 18:11
par astaroth
Finalement ça marche, les forum que j’avais visité ne précisai pas qu'il fallait un autre fichier (TST10.exe), pour ça qu'il ne fonctionnait pas..
Merci !
Re: [R] Redémarrage livebox
Posté : sam. 18 sept. 2010 11:30
par Yogui
De rien
je n'ai rien fais
Re: [R] Redémarrage livebox
Posté : dim. 22 mai 2011 14:41
par Dagobert
Bonjour.
Un vieux sujet de 2010, arf, tant pis.
J'ai "fait" un p'tit script VBS (sans aucune connaissance du VBS) afin de relancer la connexion, et donc changer d'IP.
Je me suis basé sur
cette page, en adaptant afin d'obtenir la reconnexion de la LiveBox 2.
Ca me sert aussi quand je joue à CS
Nom du fichier : LiveBox2_reconnexion.vbs
Code : Tout sélectionner
set nav = CreateObject("InternetExplorer.Application")
nav.Visible = false
nav.navigate "192.168.1.1"
Do While not nav.ReadyState = 4
Loop
nav.document.All.tags("input").Item("authpasswd").Value = "admin_MDP"
nav.document.formu.submit
WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
nav.document.getElementById("rubric2").Click
WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
nav.document.getElementById("link3").Click
WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
nav.document.getElementById("rowbutt3").Click
les tempos, WScript.Sleep(1000) risque de poser problème si la LiveBox2 mais trop de temps à répondre, une autre idée ?
Plait-il ?
Re: [R] Redémarrage livebox
Posté : dim. 22 mai 2011 18:52
par Yarillo
Hmm... Ca peut être considéré comme un script malveillant ça non ?
Re: [R] Redémarrage livebox
Posté : dim. 29 mai 2011 17:59
par mikell
Dans le temps j'avais fait ça mais pas sûr que ça marche encore
Code : Tout sélectionner
#include <IE.au3>
Global $Old_IP, $New_IP
Global $strURL = "http://automation.whatismyip.com/n09230945.asp"
_Old_IP()
MsgBox(64, "Ancienne IP", " " & $Old_IP & " ",5)
$oIE = _IECreateEmbedded ( )
GUICreate("", 100, 100, 1, 1)
GUICtrlCreateObj($oIE, 4, 4, 90, 90)
GUISetState(@SW_HIDE)
_IENavigate ($oIE, "http://192.168.1.1/hnm/standard/rs/html/savereboot.html")
Sleep(500)
;_IEAction ($oIE, "focus")
$identif = _IEFormGetObjByName ($oIE, "mainform")
$login = _IEFormElementGetObjByName ($identif , "frm_username")
$mdp = _IEFormElementGetObjByName ($identif , "frm_password")
$username = "admin"
$password = "admin"
_IEFormElementSetValue ($login, $username)
_IEFormElementSetValue ($mdp, $password)
_IEImgClick ($oIE, "not available", "alt")
Sleep(500)
_IENavigate ($oIE, "javascript:reboot();")
$oIE = 0
GUIDelete()
Sleep(100000)
While 1
Sleep(330)
$png = Ping("www.google.fr")
If $png > 0 Then
_New_IP()
MsgBox(64, "Nouvelle IP", " " & $New_IP & " ",5)
ExitLoop
EndIf
Wend
Exit
;==============================================
Func _New_IP()
Local $oHTTP
$New_IP = "0.0.0.0"
$oHTTP = ObjCreate("Microsoft.XMLHTTP")
$oHTTP.Open("GET",$strURL,0)
$oHTTP.Send()
If $oHTTP.Status = 200 Then $New_IP = $oHTTP.Responsetext
$oHTTP = 0
EndFunc
Func _Old_IP()
Local $oHTTP
$Old_IP = "0.0.0.0"
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET",$strURL)
$oHTTP.Send()
If $oHTTP.Status = 200 Then $Old_IP = $oHTTP.Responsetext
$oHTTP = 0
EndFunc
Edit: remplacer
"javascript:reboot();" par
"javascript:reboot();"
(bug forum)