Discussion :

[bigounet]

Bien le bonjour à tout le monde.
Pour gérer tous les switch de mes différents réseaux, j'ai fait un programme en access 2010.
A partir de mon programme, je peux faire des ping, soit sur un appareil, soit sur un site complet.
Je peux également préparer les configurations que je dois injecter dans les switch (en mode serial) avant de les placer dans le réseau.
Quand les switch sont en réseaux, je peux facilement me connecter via une page web.
Pour me connecter à mes switch Alcatel 6250, je dois introduire mon username et mon password, ce qui est logique.

Code html :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    <tr>
      <td class="label">User Name</td>
      <td class="input"><INPUT type="text" name="userName" SIZE="30" MAXLENGTH="63" VALUE=""></td>
    </tr>
    <tr>
      <td class="label">Password</td>
      <td class="input"><INPUT type="password" name="password" SIZE="30" MAXLENGTH="40" VALUE=""></td>
    </tr>
    <tr>
      <td style="text-align:center;" colspan="2"><INPUT type="submit" name="B1" VALUE="Login"></td>
    </tr>
  </table>
</td>

Comme j'en gère assez bien (+ de 100), j'ai mis un code dans Access et celui-ci fonctionne très bien.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Dim adresse As String
    adresse = txtIPSend ' adresse de mon switch
 
    Dim IE As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.Navigate (adresse)
 
     ' attente de fin de chargement
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
 
    Set IEdoc = IE.Document
 
     'login
     Set DOCelement = IEdoc.getElementsByName("userName").Item
     DOCelement.Value = "yyyyy"
     'DOCelement.Select
 
     'password
     Set DOCelement = IEdoc.getElementsByName("password").Item
     DOCelement.Value = "xxxxxxxxx"
     DOCelement.Select
 
     'connexion
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit

Mais il y a encore des switch Alcatel plus ancien, modèle 6224 et là, le code ne fonctionne pas.
Voici le code source de mon ancien switch:

Code html :

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
18
19
20
21
22
23
24
25
26
    <td class="login" align="center" colspan=3>&nbsp;Type in Username and Password, then click OK&nbsp;</TD>
  </tr>
  <tr>
    <td class="login" colspan=3>&nbsp;</TD>
  </tr>
  <tr>
    <td class="login" align="center">&nbsp;Username</TD>
    <td class="login">
 
      <INPUT  TYPE=text NAME=userName$query SIZE=20 MAXLENGTH=20 onkeypress="move(event)"   value="">
 
    </TD>
    <td class="login">&nbsp;</TD>
  </tr>
  <tr>
    <td class="login" align="center">&nbsp;Password</TD>
    <td class="login">
 
      <INPUT  TYPE=password NAME=password$query MAXLENGTH=160 onkeypress="onEnterSub(event)"   value="">
    </TD>
    <td class="login">&nbsp;</TD>
  </tr>
  <tr>
    <td class="login" colspan=3>&nbsp;</TD>
  </tr>
</table>

Auriez-vous une idée pour me guider ?
J'ai déjà remplacé le "username" et "password" par "username$query" et "password$query" mais cela n'a rien changé.

En vous remerciant

[bigounet]

Merci pour la modification de mon message, c'est effectivement plus clair.