Bonjour,
j'essaye de creer un prog avec visual studio 2005 pour rechercher des utilisateurs dans un groupe, mais apparemment je n'arrive pas à rentrer dans la boucle. Je n'ai aucun message d'erreur. Merci pour votre aide.
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
 
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)
        Chercher.Filter = "(ObjectClass=user)"
 
        Dim Fichier As New StreamWriter("c:\MonFichier.txt")
        Dim DirEntree As DirectoryEntry
        For Each resultat As SearchResult In Chercher.FindAll
            'On récupère l'entrée trouvée lors de la recherche
            DirEntree = resultat.GetDirectoryEntry
            Fichier.WriteLine("Login : " + DirEntree.Properties("SAMAccountName").Value)
            'On peut maintenant afficher les informations désirées
            Fichier.WriteLine("Login : " + DirEntree.Properties("SAMAccountName").Value)
            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)
 
            Console.WriteLine("-------------------")
        Next
        MonEntree.Close()
        Fichier.Close()