Discussion :

[Zarakio]

Bonjour, j'utilise actuellement ce code pour effectuer une recherche d'utilisateurs dans l'AD, seulement lorsque je l'execute VB me retourne une erreur inconnue pour la ligne en rouge. Qui sait quoi faire?

Merci d'avance.


Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)

searcher.Filter = "(&(objectClass=*))"

Dim DirEntry As DirectoryEntry

For Each result As SearchResult In searcher.FindAll
DirEntry = result.GetDirectoryEntry

TextBox1.Text = ("Login : " + DirEntry.Properties("SAMAccountName").Value)
Next

[marcusien]

c'est quoi ta chaine de connexion Ldap?

[guandal]

tu as trouvé? Sinon voici comment j'ai toujour procedé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim entry As New DirectoryServices.DirectoryEntry("LDAP://....") ' adresse de l'annuaire
        Dim mySearcher As New System.DirectoryServices.DirectorySearcher(entry)
        Dim result As System.DirectoryServices.SearchResult
 
        'tous les utilisateurs qui ont un mail
        mySearcher.Filter = "(mail=*)"
 
 
        For Each result In mySearcher.FindAll()
 
 
 
        Next