Active Directory et vb.net
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:
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() |
