Recherches LDAP et Attributs personnalisés

**AcidLines** · 13/04/2011, 11h27

Bonjour,

Après avoir parcouru le forum, parcouru des tutoriels, je n'arrive pas à faire correctement ma recherche LDAP.

Je code un petit programme d'exercice de recherche LDAP qui servira par la suite a faire de plus gros traitement une fois terminé.

Mon problème est que je n'arrive pas à récuperer mes attributs personnalisés. Cependant, j'arrive aisément à récuperer d'autres champs présents par défauts (mail, givenname..).

J'ai essayer toute les possibilité d'authentification. Mon try me ramène l'erreur :

"Erreur inconnue (0x8000500c)"

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub b_chercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_chercher.Click
 
Dim Ldap As DirectoryEntry
Dim pass As String = "*****"
Dim util As String = "cn=*****,dc=****,dc=fr"
Dim adress As String = "LDAP://*****.*****.fr/dc=*****,dc=fr"
Dim searcher As DirectorySearcher
 
Try
 
Ldap = New DirectoryEntry(adress, util, pass, AuthenticationTypes.ReadOnlyServer)
 
searcher = New DirectorySearcher(Ldap)
searcher.Filter = "(sn=" & tbx_nomUser.Text & ")"
 
Dim result As SearchResult = searcher.FindOne()
Dim DirEntry As DirectoryEntry = result.GetDirectoryEntry()
 
tbx_resultat.Text = DirEntry.Properties(tbx_attribut.Text).Value
 
Catch ex As Exception
 
MsgBox(ex.Message)
 
End Try
 
End Sub

**jlm22** · 13/04/2011, 11h32

Rebonjour,

Je crois qu'il existe des exemples de script vb pour aller chercher des infos dans le LADP, tu télécharge VBSEdit et il te donne tout plein d'exemple tu n'as plus qu'a vérifier.

**AcidLines** · 13/04/2011, 11h37

VBSEdit, c'est pour faire du VBscript, je cherche à le faire en VB.NET (sous framework 3.5 sp1)

**jlm22** · 13/04/2011, 11h48

Le code est "casi" le même enfin du moins l'idée de l'algo sera là.

sur quel ligne il déclenche l'erreur exactement ?

**AcidLines** · 13/04/2011, 11h56

Le problème survient lors la récupération de l'attribut que je recherche :

Code :

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

1
2
 
tbx_resultat.Text = DirEntry.Properties(tbx_attribut.Text).Value

Cela ne survient que sur certains attributs, dont tout ceux qui sont personnalisés.

sans doute un problème d'authentification, mais je ne vois pas lequel..

**Kropernic** · 13/04/2011, 11h59

Hello,

Voici ce que j'avais pondu à une époque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
'connexion active directory
        ldap = New DirectoryEntry(maConnectionStringQuiVaBien)
        searcher = New DirectorySearcher(ldap)
 
        'pour trouver les membres d'un groupe
        With searcher
            .SearchRoot = ldap
            .Filter = "(&(ObjectClass=Group)(CN=leNomDuGroupe))"  '<<< Change the Group name here
        End With
 
        Dim Members As Object = searcher.FindOne.GetDirectoryEntry.Invoke("Members", Nothing) '<<< Get members
        Dim i As Integer = 0
        'Dim prenom, nom, username As String
        Dim desc As String
        Dim sw As New IO.StreamWriter("username.txt")
 
        For Each Member As Object In CType(Members, IEnumerable)  '<<< loop through members
            Dim CurrentMember As New DirectoryEntry(Member) '<<< Get directoryentry for user
            nom = CurrentMember.Properties.Item("sn").Value.ToString
            prenom = CurrentMember.Properties.Item("givenName").Value.ToString
            username = CurrentMember.Properties.Item("homeDirectory").Value.ToString
            desc = CurrentMember.Properties.Item("description").Value.ToString
            ListBox1.Items.Add(nom & ";" & prenom & " - " & username.Substring(username.LastIndexOf("\") + 1))  '<<< Add user's CN(common name) to listbox
            sw.WriteLine(nom & ";" & prenom & ";" & username.Substring(username.LastIndexOf("\") + 1) & ";" & desc)
        Next
        sw.Close()
        sw.Dispose()

C'est à améliorer car il plante si le groupe contient un autre groupe.

Et pour trouver un user précis (tjs en utilisant ta connexion ldap définie plus tôt)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        'pour trouver un user précis
        searcher.Filter = "(sn=leUsernameAChercher)"
 
        Dim result As SearchResult = searcher.FindOne
        DirEntry = result.GetDirectoryEntry
        'affiche une liste des propriétés dans une liste box
        For Each prop As Object In DirEntry.Properties.PropertyNames
            ListBox1.Items.Add(prop.ToString)
        Next
 
        'affiche la propriété givenName dans un textbox
        tbname.Text = DirEntry.Properties("givenName").Value

J'espère que cela pourra t'aider.

**AcidLines** · 13/04/2011, 12h23

Bon, j'ai essayer ton code, il me ramène toujours la même erreur sur certains attributs.

Voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub B_chercherbis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_chercherbis.Click
Dim Ldap As DirectoryEntry
Dim pass As String = "*****"
Dim util As String = "cn=*****,dc=*****,dc=fr"
Dim adress As String = "LDAP://*****.*****.fr/dc=*****,dc=fr"
Dim searcher As DirectorySearcher
Dim DirEntry As DirectoryEntry
 
Ldap = New DirectoryEntry(adress, util, pass, AuthenticationTypes.serverBind)
 
searcher = New DirectorySearcher(Ldap)
 
'pour trouver un user précis
searcher.Filter = "(sn=NOMUSER)"
 
Dim result As SearchResult = searcher.FindOne
DirEntry = result.GetDirectoryEntry
 
For Each prop As Object In DirEntry.Properties.PropertyNames
lbx_listeAttribut.Items.Add(prop.ToString)
Next
 
'affiche la propriété givenName dans un textbox
Try
tbx_name.Text = DirEntry.Properties("chubidloc").Value
Catch ex As Exception
MsgBox(ex.Message)
End Try
 
End Sub

**jlm22** · 13/04/2011, 12h33

Peut-il y'avoir des accès spécifiques ou droits pour les attributs personnalisées ?
genre un accès restreints (pas de droits en lecture de ces attributs et tu dois les définir toi même)

**Kropernic** · 13/04/2011, 13h01

Quelle ligne génère l'erreur ?

**AcidLines** · 13/04/2011, 13h18

Envoyé par jlm22

Peut-il y'avoir des accès spécifiques ou droits pour les attributs personnalisées ?
genre un accès restreints (pas de droits en lecture de ces attributs et tu dois les définir toi même)

Oui, il y a un accès restreint, mais justement le mot de passe et le nom d'utilisateur défini dans ma chaine de connexion sont censés me donner tout les droits.

Quelle ligne génère l'erreur ?
Toujours celle lorsque je veux récuperer la valeur de l'attribut choisis.

J'ai fais un tet, j'ai lister tous les attributs. et ensuite j'ai lister tout ceux auquel j'arrive a obtenir une valeur.

38 attributs dont 8 dont j'obtiens une valeur.

**Kropernic** · 13/04/2011, 13h48

Bin p-e qu'il n'y a pas de valeur pour cette propriété. C'est vrai que dans l'exemple que j'ai donné, j'accède à des propriétés pour lesquelles je suis certains qu'il y a une valeur. Mais dans mes souvenirs, le tuto que j'avais regardé pour faire ça, il y avait un test pour voir s'il y avait qqch.

Exemple pour la propriété mail :

Code :

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

1
2
3
4
 
If Not String.IsNullOrEmpty(resEnt.Properties("Mail")(0).ToString()) Then
...
End If

**AcidLines** · 13/04/2011, 13h56

Il ya des valeurs c'est certains vu que j'ai regarder les valeurs des attribut sur LDAP browser.

**Kropernic** · 13/04/2011, 14h03

Alors je sèche. La seule différence que je vois entre mon code et le tien se trouve dans la connexion. Personnellement, je n'utilise pas le paramètre AuthenticationTypes.

Cela n'a sans doute rien à voir mais bon, ça ne coûte rien de tester sans pour voir.

**AcidLines** · 13/04/2011, 14h09

Ne pas renseigner la méthode d'authentification, reviens a dire "AuthentificationType.secure".

Et ce mode d'authentification n'est pas prise en charge sur mon serveur LDAP.

J'ai essayer toute les méthode d'authentification.

**Kropernic** · 13/04/2011, 14h11

Dans ce cas, je passe le relai à quelqu'un d'autre. Je n'ai pas les compétences requises pour t'aider d'avantage.

Tu m'en vois navré

.

Bonne chance dans tes recherches.

Griftou.

**AcidLines** · 13/04/2011, 14h17

Pas de souci, merci de m'avoir accordé du temps.

**AcidLines** · 14/04/2011, 08h36

Bonjour,

Après quelques recherches, n'y aurait il pas un lien avec des clés de registre / Schéma LDAP ? Je ne met pas trop les main dans cette partie, mais si vous pouviez m'éclairer la dessus..

**AcidLines** · 12/05/2011, 16h33

Reprise du projet et je suis toujours bloqué :s

Merci d'avance.

**AcidLines** · 31/08/2011, 13h44

Après quelques mois en laissant tout cela de côté, je m'y suis remis il y a quelques jours...

Et VICTOIRE !

Dans mes posts précédents je me bornais à utiliser la référence system.directoryservice alors qu'il fallait utiliser system.direcotryServices.Protocols pour les annuaires LDAP non AD !

Tout mes opérations (Ajouts, suppression, modification, consultation) fonctionnent à merveille !

Vous pouvez consulter un tres bon exemple d'utilisation sur ce lien :
http://msdn.microsoft.com/en-us/libr..._topic3_reqres

Sinon voici quelques uns de mes bout de code lorsque je testais les possibilités :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
 
'############################################### OPERATION SUR ANNUAIRE LDAP ####################################################################
'## Références : http://msdn.microsoft.com/en-us/library/bb332056.aspx#sdspintro_topic3_reqres ##
'## ##
'################################################################################################################################################
Imports System.DirectoryServices.Protocols
Public Class f_main
#Region "VARIABLES GLOBALES APPLICATION"
Dim monDomaine As String
Dim monUser As String
Dim monPwd As String
Dim maMethodeAuth As AuthType
Dim monNetworkCredential As Net.NetworkCredential
Dim ldapConnection As LdapConnection
Dim maCible As String
Dim monFiltre As String
#End Region
Private Sub f_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cbxRacineLDAP.SelectedIndex = 1
End Sub
Private Sub bConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bConnect.Click
bConnect.Image = My.Resources.processing
monDomaine = cbxRacineLDAP.Text
monUser = tbxLogin.Text
monPwd = tbxPword.Text
ldapConnection = New LdapConnection(monDomaine)
maMethodeAuth = AuthType.Basic
monNetworkCredential = New Net.NetworkCredential(monUser, monPwd)
ldapConnection.Credential = monNetworkCredential
ldapConnection.AuthType = maMethodeAuth
ldapConnection.SessionOptions.ProtocolVersion = 3
Try
ldapConnection.Bind()
ImageCnxLdap.Image = My.Resources.ledgreen
status_labLdapCnx.Text = "Connecté"
tabOperationLdap.Enabled = True
bConnect.Image = My.Resources.connecxion
Catch ex As Exception
rtbxLogs.Text = ex.ToString
End Try
End Sub
Private Sub bCreerEntree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCreerEntree.Click
Dim dn As String
dn = "chubidloc=TOTO,ou=*******,ou=personnes,dc=****,dc=fr"
Try
Dim dirClassType(2) As String
dirClassType(0) = "chubpersonne"
dirClassType(1) = "inetOrgPerson"
dirClassType(2) = "top"
Dim objClass As New DirectoryAttribute("ObjectClass", dirClassType)
Dim monChubIdLoc As New DirectoryAttribute("chubidloc", "TOTO")
Dim monChubNom As New DirectoryAttribute("chubnom", "TITI TATA")
Dim monSN As New DirectoryAttribute("sn", "TITI")
Dim monCN As New DirectoryAttribute("cn", "TATA")
Dim mesAttributColl(4) As DirectoryAttribute
mesAttributColl(0) = monChubIdLoc
mesAttributColl(1) = monChubNom
mesAttributColl(2) = monSN
mesAttributColl(3) = monCN
mesAttributColl(4) = objClass
Dim maRequete As New AddRequest(dn, mesAttributColl)
Dim maReponse As AddResponse
maReponse = ldapConnection.SendRequest(maRequete)
rtbxLogs.ForeColor = Color.Green
rtbxLogs.Text = "Entrée créée"
Catch ex As Exception
rtbxLogs.ForeColor = Color.Red
rtbxLogs.Text = ex.Message
rtbxLogs.Text = rtbxLogs.Text & vbCrLf & "-----------------------------"
rtbxLogs.Text = rtbxLogs.Text & vbCrLf
rtbxLogs.Text = rtbxLogs.Text & ex.ToString
End Try
End Sub
Private Sub bSupprimerEntree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSupprimerEntree.Click
Dim dn As String
dn = "chubidloc=TOTO,ou=******,ou=personnes,dc=****,dc=fr"
Try
Dim maRequete As New DeleteRequest(dn)
Dim maReponse As DeleteResponse
maReponse = ldapConnection.SendRequest(maRequete)
rtbxLogs.ForeColor = Color.Green
rtbxLogs.Text = "Entrée supprimée"
Catch ex As Exception
rtbxLogs.ForeColor = Color.Red
rtbxLogs.Text = ex.Message
rtbxLogs.Text = rtbxLogs.Text & vbCrLf & "-----------------------------"
rtbxLogs.Text = rtbxLogs.Text & vbCrLf
rtbxLogs.Text = rtbxLogs.Text & ex.ToString
End Try
End Sub
Private Sub bMajEntree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCreerAttribut.Click
Dim dn As String
dn = "chubidloc=TOTO,ou=****,ou=personnes,******,dc=fr"
Try
　
Dim monAttribut As String
Dim maValeur As String
monAttribut = "chubSitProf"
maValeur = "TEST"
Dim maRequete As New ModifyRequest(dn, DirectoryAttributeOperation.Add, monAttribut, maValeur)
Dim maReponse As ModifyResponse
maReponse = ldapConnection.SendRequest(maRequete)
rtbxLogs.ForeColor = Color.Green
rtbxLogs.Text = "Attribut créée"
Catch ex As Exception
rtbxLogs.ForeColor = Color.Red
rtbxLogs.Text = ex.Message
rtbxLogs.Text = rtbxLogs.Text & vbCrLf & "-----------------------------"
rtbxLogs.Text = rtbxLogs.Text & vbCrLf
rtbxLogs.Text = rtbxLogs.Text & ex.ToString
End Try
End Sub
Private Sub bModifAttribut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bModifAttribut.Click
Dim dn As String
dn = "chubidloc=TOTO,ou=*****,ou=personnes,dc=*****,dc=fr"
Try
Dim monAttribut As String
Dim maValeur As String
monAttribut = "chubSitProf"
maValeur = "TEST2"
Dim maRequete As New ModifyRequest(dn, DirectoryAttributeOperation.Replace, monAttribut, maValeur)
Dim maReponse As ModifyResponse
maReponse = ldapConnection.SendRequest(maRequete)
rtbxLogs.ForeColor = Color.Green
rtbxLogs.Text = "Valeur attribut modifiée"
Catch ex As Exception
rtbxLogs.ForeColor = Color.Red
rtbxLogs.Text = ex.Message
rtbxLogs.Text = rtbxLogs.Text & vbCrLf & "-----------------------------"
rtbxLogs.Text = rtbxLogs.Text & vbCrLf
rtbxLogs.Text = rtbxLogs.Text & ex.ToString
End Try
End Sub
Private Sub bSupprAttribut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSupprAttribut.Click
Dim dn As String
dn = "chubidloc=TOTO,ou=personnelChu,ou=personnes,dc=chu-brest,dc=fr"
Try
Dim monAttribut As String
Dim maValeur As String
monAttribut = "chubSitProf"
maValeur = "TEST2"
Dim maRequete As New ModifyRequest(dn, DirectoryAttributeOperation.Delete, monAttribut)
Dim maReponse As ModifyResponse
maReponse = ldapConnection.SendRequest(maRequete)
rtbxLogs.ForeColor = Color.Green
rtbxLogs.Text = "Attribut supprimé"
Catch ex As Exception
rtbxLogs.ForeColor = Color.Red
rtbxLogs.Text = ex.Message
rtbxLogs.Text = rtbxLogs.Text & vbCrLf & "-----------------------------"
rtbxLogs.Text = rtbxLogs.Text & vbCrLf
rtbxLogs.Text = rtbxLogs.Text & ex.ToString
End Try
End Sub
End Class

**jlm22** · 01/09/2011, 11h52

Salut,
je crois que j'ai eu un soucis du meme genre et moi sa venait du faite que les attributs était en integer8 dans la LDAP donc non compatible avec VB.NET.
Bref bien joué.

Recherches LDAP et Attributs personnalisés

VB.NET

Discussions similaires

Partager

Partager