[VB.Net] Comment récupérer les Attributs LDAP ?

Version imprimable

01/03/2006, 14h08
le Daoud

[VB.Net] Comment récupérer les Attributs LDAP ?
Bonjour,

J'accède sans problème à de nombreuses propriétés de mon annuaire, mais une me lève une exception :
Code:

1 2 Me.Session("dept") = DirEntry.Properties("DP").Value
Citation:

System.Runtime.InteropServices.COMException - Le type de donnée répertoire ne peut pas être converti à partir/vers un type de donnée de service d'annuaire natif

Merci ;)

ps : ce post à plus avoir avec ldap que dotnet, masi il n'y a pas de rubrique ldap... :roll:
02/03/2006, 12h11
linux
Ah! je l'ai aussi eut celle-la.....

En fait le soucis est que tu ne filtre pas les propriètès qu'il ramènent
donc ils les ramènent toutes..
Et alors, dieu sait pourquoi, il plante.....
Tu dois d'abord choisir les proprietes que tu veux ramener et après suelement requeter sur le ldap avec ton searcher
Code:

1 2 3 DirectorySearcher dirSearcher; dirSearcher.PropertiesToLoad.Add("DP")
une fois loadées tu fait appel à ton searcher
et lis l'entrée retournée avec la liste des propriétés séléctionnées
plus 4/5 par défaut...
02/03/2006, 13h45
le Daoud

Merci pour ta proposition, mais helas le problème demeure. Je n'y comprends rien...

EDIT : je visualise pourtant sans problème cet attribut avec le logiciel dont tu me parlais (softerra) 8O

EDIT 2 : C'est un attribut ajouté et non pas natif... la cause est sûrement là, mais que faire....
03/03/2006, 09h45
linux

Ok,
Tu pourrais faire voir le code amont à ta lecture de properties?

Yeap :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim DirEntry As New DirectoryEntry
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://mon.serveur:389/ou=people,o=toto")
            Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
            searcher.PropertiesToLoad.Add("DP")
            searcher.Filter = "(uid=" + UserCode.Text + ")"
            Try
                Dim mySearchResult As SearchResult = searcher.FindOne()
                If Not (mySearchResult Is Nothing) Then
                    DirEntry = mySearchResult.GetDirectoryEntry
 
                    Me.Session("dept") = DirEntry.Properties("DP").Value
                    Me.Session("uid") = DirEntry.Properties("uid").Value
                    Me.Session("email") = Trim(DirEntry.Properties("mail").Value)
                    Me.Session("prenom") = Trim(DirEntry.Properties("givenname").Value)
                    Me.Session("nom") = Trim(DirEntry.Properties("SN").Value)
                    Me.Session("pwd") = MotPasse.Value
                Else
                    result = False
                End If
            Catch ex As Exception
...

je vais essayer avec une autre api car il se peut que certaines fonctionnalités ne soient pas implémentées.

03/03/2006, 10h31
linux
ok test voir ca:

Dans softerra, va sur un uid, fait un click droit / properties et récuper le chemin

ensuite essaie comme ca;
Code:

1 2 Dim Ldap As DirectoryEntry = New DirectoryEntry(cheminSofterra) Me.Session("dept") = DirEntry.Properties("DP").Value
si la, ça passe, il va falloir faire comme nous;

verifer que l'entrée existe si oui alors faire appelle au code précedent
en construisant l'adresse par un traitement sur le chemin ldap de

Code:

mySearchResult.GetDirectoryEntry

pas terrible mais on a rien trouvé de mieux.... :?
03/03/2006, 11h45
le Daoud

Merci encore pour ton aide, mais hélas ça ne marche pas. Je crois que cela vient de l'api qui ne permet pas de tout faire, notament de récupérer certains types de données (qui ne sont pas prédéfinies).
J'ai récupéré une autre API : http://sharptoolbox.com/Search.aspx?Query=ToolName%3dldap
et ça marche :)

a+