Discussion :

[olivier1212]

Bonjour,
j'ai codé un programme en vbnet sous visual basic 2005 express qui me permet de lister les membres d'un groupe dans l'active directory de windows.
Le prog ne rentre pas dans la boucle for each... next. Il execute tout ce qui se trouve en dehors de la boucle et ne me retourne aucune erreurs aucune exception. Si je rentre directement le chemin LDAP jusqu'à l'utilisateur il me donne bien les renseignements ("displayname","samaccountname").
Voilà le code si vous avez des suggestions, des réponses.
Je voulais savoir également, si je fais mes requètes LDAP à partir d'un poste client, est-ce nécessaire d'installer le framework 2.0 sur le serveur qui est actuellement en 1.1 ?

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
 
 
 Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim MonCpt As String = CStr(TextBox1.Text)
        Dim MonPass As String = CStr(TextBox2.Text)
        Dim MonCheminLDAP As String = "CN=...,OU=...,DC=..."
        Dim MonEntree As New DirectoryEntry("LDAP://" & MonCheminLDAP, MonCpt, MonPass, AuthenticationTypes.Secure)
        Dim Chercher As DirectorySearcher = New DirectorySearcher(MonEntree)
        Dim Fichier As New StreamWriter("c:\MonFichier.txt")
        Chercher.Filter = "(ObjectCategory=user)"
 
        Try
            For Each resultat As SearchResult In Chercher.FindAll
                Dim DirEntree As DirectoryEntry = resultat.GetDirectoryEntry
                'On récupère l'entrée trouvée lors de la recherche
                'On peut maintenant afficher les informations désirées
                Fichier.WriteLine("Login : " + DirEntree.Properties("SAMAccountName").Value.ToString())
                Fichier.WriteLine("Nom : " + DirEntree.Properties("sn").Value)
                Fichier.WriteLine("Prénom : " + DirEntree.Properties("givenName").Value)
                Fichier.WriteLine("Email : " + DirEntree.Properties("mail").Value)
                Fichier.WriteLine("Tél : " + DirEntree.Properties("TelephoneNumber").Value)
                Fichier.WriteLine("Description : " + DirEntree.Properties("description").Value)
                Fichier.WriteLine("-------------------")
            Next
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try
 
        MonEntree.Close()
        Fichier.Close()
        MsgBox("Terminé")
        Application.Exit()
 
    End Sub

[Bluedeep]

Balise code, SVP, sinon c'est illisible !

En dehors de cela, mettre du code "métier" comme ça dans un handler d'event je trouve cela pas vraiment très propre.

Sinon, as tu vérifié sous Debugger ce que retournait la méthode FindAll ?

De plus, je ne vois pas l'intérêt du try/catch ici.

[olivier1212]

Ceci est un essai Mooonseigneur. Si un jour cela marche je ferai une petite procedure.
En attendant j'ai fait trois forum, "developpez.com","laboratoire-microsoft" et "microsoft msdn", en 3 semaines pas de soluces que des commentaires :
pas très propre...
je vais essayer...
manque de clarté...

même pas une suggestion.
Tu comprends que ça commence à me gaver. Je suis pas un pro de la prog mais si être un cador du developpement c'est juste faire des réprimandes à la papa, c'est pas la peine de répondre.

[Bluedeep]

même pas une suggestion.
Tu comprends que ça commence à me gaver. Je suis pas un pro de la prog mais si être un cador du developpement c'est juste faire des réprimandes à la papa, c'est pas la peine de répondre.

Je t'ai demandé : Sinon, as tu vérifié sous Debugger ce que retournait la méthode FindAll ? j'attends la réponse.

Et je réitère : mets la balise code, c'est illisible.

[olivier1212]

Ok, désolé j'avais pas lu la suite du message.
En pas à pas le debugger ne rentre pas dans la boucle, il passe directement à l'instruction après Next et ne renvoi aucune erreur.

[Bluedeep]

Ok, si tu élimines le contenu du filtre, le FindAll retourne-t-il quelque chose ?

[olivier1212]

Oui il inscrit dans Monfichier.txt :

Login : G_ADMIN_RESEAU
Nom :
Prénom :
Email :
Tél :
Description : Administration Telnet des équipements réseau via RADIUS

[Bluedeep]

Bon, donc ton problème vient donc du contenu du filtre.

A ce stade, je ne peux pas t'aider plus, mes connaissances sur AD sont limitées.

[olivier1212]

Merci, je suis déjà plus éclairé.
Tu ne connais pas un membre qui aurait des connaissances en vbnet et AD?

[elkamy]

salut,

si tu remplaces

Code :

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

Chercher.Filter = "(ObjectCategory=user)"

par

Code :

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

Chercher.Filter = "(objectClass=user)"

ca change quelque chose?

[olivier1212]

Non ca ne change rien. Fichier texte toujours vide.

[elkamy]

c'est peut être ton chemin ldap qui n'est pas bon...

Tu peux le vérifier facilement je crois avec adsi edit. Tu vas sur un utilisateur et il te donne le chemin ldap.

une piste a vérifier....

[olivier1212]

c'est la première chose que j'ai vérifié. J'ai testé plusieurs chemin sur différents serveur et c'est pareil.