Discussion :

[fabibi001]

Bonjour le forum,
Bonjour BBIL,

J'ai tenté de modifier le script disponible ci-dessous mais je n'y parviens pas :
http://vb.developpez.com/faqvbs/?page=II.3#vbsIE

Voici le code source du site auquel je souhaiterais me connecter, je suppose que la réponse s'y trouve mais elle ne me saute pas aux yeux ...

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
17
<form method="post" action="http://lol.intranet/ctt/ipadmin">
 
                <table width="100%" border="0" align="left">
                <tr>
                  <td class="tabletext" align="right">Username</td>
                  <td align="left"><input name="user" type="text" value="" size="16" maxlength="16"></td>
                </tr>
                <tr>
                  <td class="tabletext" align="right">Password</td>
                  <td align="left"><input type="password" name="password" maxlength="16" size="16" value=""></td>
                </tr>
                <tr>
                  <td align="right"><input type="submit" name="submit" value="Submit"></td>
                  <td align="left"><input type="reset" name="reset" value="Reset"></td>
                </tr>
                </table>
                </form>

Voici le script que j'ai tenté de modifié mais j'ai un message 'Object required : Helem' :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://lol.intranet/ctt/ipadmin"
Do While (IE.Busy)
    WScript.Sleep 20
Loop
Set Helem = IE.document.getElementById("Username")
Helem.Value = "MonNom"
Set Helem = IE.document.getElementById("Password")
Helem.Value = "MonPass"
Set Helem = IE.document.Forms(0)
Helem.Submit

> Quelqu'un pourrait-il m'éclairer svp ?

Merciiiiii d'avance

[SfJ5Rpw8]

l'identifiant de ton champ, nom d'utilisateur n'est pas le même :

ici

Code html :

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

   <td align="left"><input name="user" type="text" value="" size="16" maxlength="16"></td>

que la :

Code :

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

Set Helem = IE.document.getElementById("Username")

si après ce changement tu as une erreur sur .Submit ... tu peu essayer de le remplacer par :

Code :

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

1
2
Set Helem = IE.document.getElementById("Submit")
Helem.Click

[fabibi001]

Merci, j'essaie ça dès mon retour au bureau lundi