Ajouter un utilisateur à un groupe AD

Version imprimable

12/09/2011, 10h06
jck2003

Ajouter un utilisateur à un groupe AD

Bonjour à tous :) !!

Après de nombreuses recherches, je n'arrive pas à mettre la main sur la syntaxe pour ajouter un utilisateur à un groupe, ou un groupe à un utilisateur en asp.net :( ..

J'ai trouvé un super cours sur l'AD,

http://morpheus.developpez.com/addotnet/ADVBNET/

mais il n'y a malheureusement pas la partie groupe..

Merci par avance pour vos réponses :) !!

Bonjour, tu peux procéder comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
public void AddToGroup(string userDn, string groupDn)
{
    try
    {
        DirectoryEntry dirEntry = new DirectoryEntry("LDAP://" + groupDn);
        dirEntry.Properties["member"].Add(userDn);
        dirEntry.CommitChanges();
        dirEntry.Close();
    }
    catch (System.DirectoryServices.DirectoryServicesCOMException E)
    {
        // Exception handling code here
    }
}

Un excellent article pour en apprendre plus sur la gestion AD en .NET est disponible ici :
http://www.codeproject.com/KB/system...thingInAD.aspx

Merci beaucoup pour ta réponse :P !!

Je viens d'essayé d'adapter le code, mais aucun ajout de groupe de l'utilisateur, je ne comprends pas vraiment pourquoi.. je fais ma connection à l'ad, envoie la requete (ajout d'un membre à un groupe), demande d'executer tout ceci.. :(
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim DirectoryEntry Try Dim dirEntry As DirectoryEntry = New DirectoryEntry("LDAP://mondomaine.lan" + "mongroupe") dirEntry.Properties("memberof").Add("nomuser") dirEntry.CommitChanges() dirEntry.Close() Catch Ex As Exception Text4.text = "Erreur" End Try
Mais je n'ai pas d'ajout :roll:

Bonjour à tous :) !
je reviens vers vous, je viens de tenter une autre syntaxe, je pense que je m'approche de la solutions, sans pour autant y parvenir..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        Try
 
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://domaine.lan", "utilisateur", "motdepasse")
 
            Dim group As New DirectoryEntry("mongroupe")
 
            group.Properties("member").Add("monuser")
 
            group.CommitChanges()
 
            lbl_infos.Text = "ok"
 
        Catch Ex As Exception
            lbl_infos.Text = "Ecriture dans l'AD impossible !"
        End Try

Voyez-vous la coquille ? :?

ENFIN !!

Tout marche :lol: !! Il faut bien rajouter les chemins complet (ex CN=etc..) :
Voir "distinguishedName" dans l'éditeur d'attributs de l'ad sur les objets concernés
Code:

1 2 3 4 5 Dim group As New DirectoryEntry("LDAP://CN=mongroupe,OU=groupetest,OU=Groupe,DC=mondomain", "admin", "password") group.Properties("member").Add("CN=monuser,DC=mondomain") group.CommitChanges()
Merci pour tous ;)

Bonjour et désolé de ne pas avoir répondu plus tôt ...

En effet, dans mon premier exemple, groupDn signifie "group distinguished name", j'aurais du ajouter des commentaires mais je pensais l'article du lien suffisamment clair, désolé :)

Pour revenir sur ton essai précédent :
Code:

1 2 3 4 5 Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://domaine.lan", "utilisateur", "motdepasse") Dim group As New DirectoryEntry("mongroupe") group.Properties("member").Add("monuser") group.CommitChanges()
Ici ça ne pouvait pas fonctionner car ton groupe n'est pas relié à l'AD, mais si tu avais lié Ldap et group (de mémoire il existe une surcharge du constructeur de DirectoryEntry qui prend en paramètre une instance DirectoryEntry en tant que "parent") ça aurait pu fonctionner (en étant bien sur plus précis, c-a-d préciser que "mongroupe" est un groupe :))

Sache qu'en AD, utiliser le DistinguishedName est le meilleur moyen de retrouver un objet, que ce soit un groupe, un serveur, un utilisateur ou une machine, tu peux tout retrouver via son DN ;)