Aide pour une authentification automatique - VB/VBA/VBS - Programmation
MarshPosté le 16-06-2010 à 15:44:52
Bonjour,
Je suis prof de méca auto et je viens d'avoir un acces au site internet de documentation PEUGEOT pour mes élèves et moi meme. Le constructeur donne cet accès à condition que le site ne soit utilisé que dans l'établissement scolaire. Pour cela je souhaiterais faire un VBS qui appelle la page internet, sasisi le login et le password de maniere automatique.
J'y arrive avec un site dont l'identifivation est integrée au site (www.infotech.renault.com) par exemple la pas de soucis. Mais avec le site PEUGEOT je cale.
Marsh Posté le 16-06-2010 à 15:44:52
Bonjour,
Je suis prof de méca auto et je viens d'avoir un acces au site internet de documentation PEUGEOT pour mes élèves et moi meme.
Le constructeur donne cet accès à condition que le site ne soit utilisé que dans l'établissement scolaire. Pour cela je souhaiterais faire un VBS qui appelle la page internet, sasisi le login et le password de maniere automatique.
J'y arrive avec un site dont l'identifivation est integrée au site (www.infotech.renault.com) par exemple la pas de soucis.
Mais avec le site PEUGEOT je cale.
Quelqu'un peu t'il m'aider SVP.
Le site = https://connect.peugeot.com
Login = E111111
Pass = Password
Merci par avance pour votre aide
------------------------------------------
Voici ce que j'utilise pour renault:
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application" )
IE.Visible = 1
IE.navigate "http://www.infotech.renault.com"
Do While (IE.Busy)
WScript.Sleep 100
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 = "Password"
Set Helem = pFrame.document.Forms(0)
Helem.Submit