Active directory et OU

Résolu
Signaler
Messages postés
35
Date d'inscription
lundi 15 juin 2009
Statut
Membre
Dernière intervention
28 juillet 2009
-
Messages postés
35
Date d'inscription
lundi 15 juin 2009
Statut
Membre
Dernière intervention
28 juillet 2009
-
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!

<!-- BEGIN TEMPLATE: bbcode_quote -->
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

4 réponses

Messages postés
35
Date d'inscription
lundi 15 juin 2009
Statut
Membre
Dernière intervention
28 juillet 2009

J'ai trouvé, la chaine de connexion est LDAP://BIZONE/OU=bizone,DC=dom
Messages postés
160
Date d'inscription
mardi 17 janvier 2006
Statut
Membre
Dernière intervention
9 décembre 2018

bonjour,

le franework 2.0  gere active directory
je te conseil l'exelent acticle de R Vasseur
http://webman.developpez.com/articles/dotnet/activedirectory/vbnet/
Messages postés
79
Date d'inscription
lundi 28 octobre 2002
Statut
Membre
Dernière intervention
21 octobre 2008

La construction de la chaine se fait de cette façon :
LDAP://OU=bizone,DC=BIZONE,DC=dom
Messages postés
35
Date d'inscription
lundi 15 juin 2009
Statut
Membre
Dernière intervention
28 juillet 2009

J'ai essayé la chaine de connexion que tu m'as donné mais ca ne marche toujours pas, je ne comprends pas d'ou vient le probleme.