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