Discussion :

[gagaz21]

Bonjour,

Après de multiple et infructueuses recherches, je décide de m'adresser à vous. Voilà mon problème :

Je souhaite avoir accès à l'annuaire ldap de Active Directory pour récupérer à partir d'un nom utilisateur son SID. Par la suite le SID me servira, je l'espère, à récupérer les dossiers partagé auxquelles l'utilisateur en question à accès.

En premier lieu il faut déja que je puisse me connecté correctement à l'AD. Pour cela j'utilise le code suivant :

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
 
'Connexion à l'AD
        Try
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://srv2003:389/CN=Util1,OU=utilisateur,DC=test,AuthenticationTypes.Secure")
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try
 
        'Recherche d'un objet dans l'AD
        Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
        searcher.Filter = "(objectSid=Util1)"
        Dim result As DirectoryServices.SearchResult = searcher.FindOne()
 
        'Récupération de l'entrée trouvée lors de la recherche
        Dim DirEntry As DirectoryEntry = result.GetDirectoryEntry()
 
        'Affichage du SID du user
        Console.WriteLine("SID : " + DirEntry.Properties("ObjectSid").Value)
 
        'Affichage des dossiers partagés du user
        Console.WriteLine("partage : " + DirEntry.Properties("UserSharedFolder").Value)
 
 
 
    End Sub

Ce code plante au niveau de la ligne :

Code :

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

Dim result As DirectoryServices.SearchResult = searcher.FindOne()

Et me renvoie le message d'erreur :

System.DirectoryServices.DirectoryServicesCOMException (0x80072032)
syntaxe DN non valide.

Pouvez-vous m'aider??
Merci

[cougarg]

Bonjour,

Je ne connais pas les LDAP, mais vu l'erreur, il semble que ton filtre ne soit pas correct.
Par rapport à ce site :
http://ldapbook.labs.libre-entrepris...l/ch03s02.html
il semble que tu devrais ajouter & :

Code :

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

searcher.Filter = "(&(objectSid=Util1))"

[gagaz21]

Merci pour ta réponse mais mon filtre me semble ok. J'ai quand même testé ta solution et je reçois le msg d'erreur suivant :

Le filtre de recherche (&(objectSid=Util1) n'est pas valide.

Ce qui a bien confirmé ce que je pensait ^^
Je pense que le problème n'est pas au niveau de la recherche mais plutôt à celui de la connexion à l'annuaire.