Discussion :

[bikette63]

Bonjour tout le monde.
J'ai un probleme pour la gestion d'une erreur en cas de non-existence.
Mon code :

Code :

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

1
2
3
4
5
6
7
8
Function test_util(test_nom,test_pass,test_service)
        set test = GetObject("LDAP://CN=david,ou=etu,dc=ServeurAd,dc=local")
        If test is nothing then
	MsgBox "The oIADSUser is Nothing."
        Else
	MsgBox "The oIADSUser is created successfully."
        End If
End Function

Voila, quand l'utilisateur existe ya aucun soucis, mais quand il n'exciste pas il ne veut pas rentrer dans le if ( il ne pas dans le else non plus ).
Je n'arrive pas a comprendre.
PS : On Error Resume Next <= activer

[SfJ5Rpw8]

....
PS : On Error Resume Next <= activer

cela veu dire quoi ...? je ne vois pas ta ligne de code avec le on Error..

[bikette63]

C cool j'ai trouver.
En faite c très simple mon erreur
dans le On error resume next il sauter ma fonction.
C'est pour sa , j'ai inclus mon code dans le main sans passer par ma fonction et maintenant sa marche nikel.
J'ai cependant un autre probleme en ce qui concerne le changement de mot de passe d'un utilisateur AD.
Si ta un pti bout de code sa serais sympa.
Merci encore pour ton aide.

[SfJ5Rpw8]

non il n'y avais pas de On Error Resume Next ... dans ta fonction...! suffisait de le rajouter...