Bonjour à tous! Voilà je cherche à lister tous les groupes a l'interieur d'une OU.
Le code suivant ne marche pas, le label1 m'affiche "error: bind
failed". Pourtant quand je change la ligne bjADAM = New
DirectoryEntry("LDAP://BIZONE/OU=bizone", "DOMAINE\administrator",
"admin", AuthenticationTypes.Secure) par
bjADAM = New DirectoryEntry("LDAP://BIZONE/", "DOMAINE\administrator", "admin", AuthenticationTypes.Secure)
j'obtiens bien dans ma dropdownlist tous les groupes de l'annuaire.
Pourquoi cela ne marche-t-il pas? Faut-il préciser autre chose dans la
chaine de connexion? Merci à tous!
Citation:
Dim objADAM As DirectoryEntry
Dim objEntry As DirectoryEntry
Dim objSearchADAM As DirectorySearcher
Dim objSearchResults As SearchResultCollection
Dim strFilter As String
Dim strPath As String
' Construct the binding string.
' Specify filter.
strFilter = "(&(objectClass=group))"
' Get AD LDS object.
Try
objADAM = New
DirectoryEntry("LDAP://BIZONE/OU=bizone", "DOMAINE\administrator",
"admin", AuthenticationTypes.Secure)
objADAM.RefreshCache()
Catch ev As Exception
label1.text = "Error: Bind failed."
Return
End Try
' Get search object,
' specify filter and scope,
' perform search.
Try
objSearchADAM = New DirectorySearcher(objADAM)
objSearchADAM.Filter = strFilter
objSearchADAM.SearchScope = SearchScope.Subtree
objSearchResults = objSearchADAM.FindAll()
Catch ev As Exception
label1.text = "Error: Search failed."
Return
End Try
' Enumerate filtered objects.
Try
If objSearchResults.Count <> 0 Then
label1.text = "Results: Following objects found."
Dim objResult As SearchResult
For Each objResult In objSearchResults
objEntry = objResult.GetDirectoryEntry()
dropdownlistgpe.items.add(objEntry.name)
Next objResult
Else
label1.text = "Results: No objects found."
End If
Catch ev As Exception
label1.text = "Error: Enumerate failed."
Return
End Try