Script deco/reco pour LiveBox orange 3
Bonjour,
J'ai un truc bizarre sur un Script permettant la déconnexion/reconnexion de la LiveBox 3 (qui je tiens à le préciser n'est pas de moi hélas mais que j'ai trouvé sur le net)
Il fonctionne sans problème sur un PC sour Windows 7 64bits.
J'ai essayé sur mon PC sous Windows 7 32bits et là il y a le problème quand je double click sur ce reco.vbs celui-ci plante au bout d'un temps aléatoire (5min, 1h, 10h).
J'ai recherché sur le net ainsi que sur ce forum des réponses car ce truc de "l'objet invoqué s'est déconnecté de ses clients." semble assez répandu mais j'avoue ne rien comprendre.
j'ai le message suivant:
Ligne: 7
Caract: 1
Erreur: l'objet invoqué s'est déconnecté de ses clients.
Code : 80010108
Source: (null)
ça semble correspondre à la ligne du vbs (ou pas ?!?): Do While not nav.ReadyState = 4.
Merci d'avance pour votre aide ;)
voici le script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
| ' script de deconnexion/reconnexion Internet Livebox-Play 3
call Main
sub Wait_IE(nav)
WScript.Sleep(1000)
Do While not nav.ReadyState = 4
Loop
end sub
sub Click_IE (nav,id)
nav.document.getelementbyID(id).click
call Wait_IE(nav)
end sub
sub init(nav)
set nav = CreateObject("InternetExplorer.Application")
nav.Visible = false
nav.navigate "192.168.1.1"
call Wait_IE(nav)
nav.document.getelementbyID("PopupUsername").Value = "admin"
nav.document.getelementbyID("PopupPassword").Value = "admin"
nav.document.getelementbyID("bt_authenticate").click
call Wait_IE(nav)
end sub
sub bosse(nav)
'call Click_IE(nav,"rubric2") OLD
'call Click_IE(nav,"link3") OLD
nav.navigate "192.168.1.1/advConfigAccessType.html"
call Wait_IE(nav)
call Click_IE(nav,"bt_refresh")
call Wait_IE(nav)
end sub
sub clean(nav)
nav.quit
end sub
sub main
dim nav
call init(nav)
call bosse(nav)
call clean(nav)
end sub |
