Discussion :

[deathsurfer]

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!

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

[guandal]

Salut

Code :

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

bjADAM = New DirectoryEntry("LDAP://BIZONE/OU=bizone", "DOMAINE\administrator", "admin", AuthenticationTypes.Secure)

je pense que cela ne marche pas parceque tu essaies de de te connecter à un objet de l'annuaire (OU en l'occurence). sinon je ne sais pas si on peut acceder directement à un domaine?
Le principe veut que tu te connectes d'abord à l'annuaire("LDAP://BIZONE" comme adresse LDAP dans ton cas) avant de commencer à parcourir les domaines c'est pouquoi la seconde instruction marche.
pour plus d'infos ici

[deathsurfer]

la chaine doit etre LDAP://BIZONE/OU=BIZONE,DC=dom