Discussion :

[charouel]

Bonjour,
Comment on peut extracter tous les utilisateurs qui se trouve dans l'active Directory avec tous les propriétés ?

Merci de m'aiguiller.

[Ogotcha]

Je ne connais pas trop l'interaction AD + VB donc je t'envoie vers ce tuto en espérant que cela puisse d'aider quelque peu

[charouel]

bon ca marche mais le problème c'est si j'ai plus que 1000 utilisateur je n'importe que le 1ier 1000 utilisateur ??

[Ogotcha]

je n'importe que le 1ier 1000 utilisateur ??

... euh j'ai pas bien compris la fin de ton message

[charouel]

bon j'importe seulement 1000 utilisateur si j'ai par exemple 1200 utilisateurs les 200 dernier ne sont pas importé. pour koi ?? jene sait pas

[Ogotcha]

En effet c'est étrange surtout si ton code demande bien lister tous les utilisateurs... tu peux nous montrer ton code ? stp

[alex_vino]

Bonjour,

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
Public Function getDisplayName() As String
        ' Exemple de chemin LDAP : "CN=User 1,CN=Users,DC=monDomaine,DC=local"
        Dim monDisplayName As String = Nothing
        Try
            ' Connexion à l'objet compte utilisateur souhaité
            Dim monUser As DirectoryEntry = New DirectoryEntry("LDAP://OU=XXXXX,OU=XXXXX,DC=XXXXX,DC=XXXXX", "yourUser", "yourPwd")
            ' Récupération de la valeur de la propriété
            monDisplayName = monUser.Properties("displayName").Value.ToString
            ' Fermeture de la "connexion"
            monUser.Close()
        Catch ex As Exception
            monDisplayName = ex.Message
        End Try
        Return monDisplayName
    End Function