VB.net et Active Directory

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

c'est quoi ta chaine de connexion Ldap?

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

Code:

---

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

---