Aide pour une authentification automatique

Aide pour une authentification automatique - VB/VBA/VBS - Programmation

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
 

Reply

Marsh Posté le 16-06-2010 à 15:44:52   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed