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