cjoint

Publicité


Publicité

Format du document : text/plain

Prévisualisation

Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://cas.univ-st-etienne.fr/esup-cas/login?service=https%3A%2F%2Fead-iut-roanne.univ-st-etienne.fr%2Fclaroline%2Fauth%2Flogin.php%3FauthModeReq%3DCAS"
IE.Visible = True

While IE.Busy
WScript.Sleep 50
Wend

Set ipf = IE.document.all.username
ipf.Value = "VotreIdentifiantIci"
Set ipf = IE.document.all.password
ipf.Value = "VotreMotDePasseIci"
Set ipf = IE.document.all.Submit
ipf.Click

Publicité


Signaler le contenu de ce document

Publicité