Discussion :

[david87]

bonjour,

je cherche sous windows XP a lister l'ensemble des utilisateurs

mais je ne sais pas quoi mettre dans le chemin vers l'annuaire Active Directory
j'ai essayé cela mais ca ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Try
    Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://localhost:389", "Administrateur", "mon_pass")
 
    Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
    searcher.Filter = "(objectClass=user)"
    Dim DirEntry As DirectoryEntry
 
    DirEntry = searcher.FindOne().GetDirectoryEntry
 
    MessageBox.Show("Login : " + DirEntry.Properties("SAMAccountName").Value)
Catch Ex As Exception
    MessageBox.Show(Ex.Message)
End Try

il me dit "Le serveur n'est pas opérationnel"

merci d'avance de votre aide

David

[bizet]

Salut

il semblerait que tu ais ton LDAP sur ta machine... Ca me semble bizarre...

je pense que pour consulter ton LDAP tu utilises un soft particulier (LdapBrowser/AdExplorer). Connectes toi et recherche l'url de ton AD, et tu la mets a la place

Code :

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

1
2
 
Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://MONURL:389", "Administrateur", "mon_pass")

Ca devrait fonctionner.

[david87]

c'est bon ca fonctionne merci