Discussion :

[tssi555]

Bonjour,

Dans mon application (VB.NET/SQL Server), je dois réaliser des opérations sur Active Directory (que je n'ai jamais utilisé) à partir de VB.

On m'a demandé de :

- trouver le code (mot de passe) de l'utilisateur qui s'est connecté au PC.
- lister dans quel groupe se trouve.

Je ne sais pas comment procéder vu que je n'ai jamais fait ce genre de manipulation.
J'ai regardé un peu le tuto de LEBRUN Thomas, mais je pense que je suis mal partis.

je tente me connecter à Active directory avec :

Code :

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

1
2
3
4
5
6
7
Try
 
    Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://nom-de-annuaire")
 
Catch Ex As Exception
            MessageBox.Show(Ex.Message)
End Try

Normalement, si je n'ai pas d'erreurs c'est que je me connecte convenablement à mon annuaire. Mais pour le test, j'enlève une lettre ou deux du nom de mon annuaire mais je n'ai tjrs pas d'erreur.

En gros, je ne sais pas vraiment comment procéder pour me connecter à Active Directory et manipuler les données stockées dedans.

Pourriez - vous m'aider?

Merci d'avance.

[tssi555]

Après quelques recherche sur internet, j'ai su me connecté à Active Directory et lister les utilisateurs.

Maintenant, ce qu'il me faut c'est comment faire pour lister les utilisateurs et comparer si tel utilisateurs fait partie de tel groupe?


Merci de votre aide.

[tssi555]

Merci, ne chercher pas, j'ai trouvé. il faut utiliser memberOf.

[titou_777]

Bonjour tssi555 !

Je cherche à me connecter à mon AD.. et je dois dire que je rencontre quelques problèmes..

Pourrais-tu me faire voir ton code s'il te plais, si cela ne te dérange pas.. ?

[gagaz21]

Bonjour titou_777!

pour se connecter à l'AD c'est assez simple en fait!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
 'Connexion à l'AD
 ' Base Dn ->       DC=domaine", "Administrateur@domaine", "mdp"
        Try
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://nom-du-serveur:389/OU=utilisateur,DC=NomDomaine", "Administrateur@nomDomaine", "mdp")
 
            'Nouvel objet pour instancier la recherche
            Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
            ' Filtre de recherche
            searcher.Filter = "(sAMCOUNTNAME=user)"

Si tu cherche à faire des filtres de recherches, je te conseil le logiciel Ldap Browser de chez Softerra qui est très pratique pour comprendre le fonctionnement de la base DN.

Amicalement.

Seul c'est bien! à plusieurs c'est mieux!! l'union fait la force..

[titou_777]

Bonjour tssi555 !!!

Je viens de voir à l'instant ta réponse.. merci pour ton post !

Amicalement !