Discussion :

[kaobar]

Bonjour à tous,

Professeur en LP, je suis maintenant administrateur du réseau de mon établissement.

Afin de faciliter la vie des collègues, je souhaite mettre un raccourci sur le bureau des postes informatiques vers un site necessitant un login et un password qui ne necessiterai pas de saisie (clic et tout est automatisé).

un script VBS serait parfait pour cela, mais je ne m'interesse à ce language depuis peu et la je bloque.

Si quelqu'un pouvait m'aider se serait vraimment super sympa.

Merci par avance

Patrice

[kaobar]

Re,

Voici le script (trouvé sur developpez.com) que j'ai essayé.
Un message d'erreur (Hemel) object requis apparait.

quelqu'un a t'il une idée ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
 
IE.navigate "http://www.infotech.renault.com/fo/accueil.action"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("vb_login_username")
Helem.Value = "PRE8188"
 
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasse"
 
Set Helem = IE.document.Forms(0)
Helem.Submit

[kaobar]

Re,

je pensai utiliser la fonction "sendkeys" mais pas possible car message d'erreur 800A0408 ????

Pourtant ca pourrais etre une solution.

Merci

[fabibi001]

Bonsoir,

Ne serait-ce pas la réponse à ton problème ?

http://www.developpez.net/forums/d87...-site-externe/

++

[kaobar]

Slt,

désolé, mais ca ne fonctionne pas.

Patrice

[SfJ5Rpw8]

il y as des frame .. sur ta page ... modifie la fin de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(...)
Loop
Set pFrame = IE.document.frames("pub")
 
Set Helem = pFrame.document.getElementsByName("j_username")(0)
Helem.Value = "PRE8188"
 
Set Helem = pFrame.document.getElementsByName("j_password")(0)
Helem.Value = "MotDePasse"
 
 
Set Helem = pFrame.document.Forms(0)
Helem.Submit