Ajout d'utilisateur dans un groupe Active directory en VB.Net

Bonjour,

lassé de passer mon temps à faire des recherches dans la console de l'active directory j'ai voulu rassembler tout mes besoins récurant dans une petite appli en VB.net.

Mon objectif est de :
1- trouver un utilisateur dans l'AD en fonction de son nom ou de son identifiant.
2- Vérifier son appartenance au groupe A, B, C ou D
3- Ajouter ou retirer l'utilisateur du(des) groupe(s)


Les points 1 et 2 sont OK j'arrive à récupérer mon utilisateur et vérifier s'il fait partis ou non d'un groupe, ma question est "comment l'ajouter ou l'enlever du groupe ?"

J'ai trouvé plusieurs méthodes sur le net qui passent toutes par une fonction de recherche dans l'AD ce que je souhaite éviter vu que je dispose déjà de deux variables contenant les distinguishedName du groupe et de l'utilisateur.

Ma question est donc la suivante : comme faire en sorte d'ajouter l'utilisateur au groupe en question ?

J'ai trouvé une fonction en VBS qui fonctionne bien :

Code:

---

1 2 3 4

Set objGroup = SetObject("LDAP://CN=XXXXX,OU=YYYY,OU=ZZZZ,DC=AAAA,DC=BBBB,DC=CCCC,DC=DDDD") Set objUsr = GetObject("LDAP://" & dn) objGroup.Add (objUsr.ADsPath)

---

Mais je ne trouve pas comment l'utiliser en VB.net

Si quelqu'un pouvais m'éclairer un peut sur le sujet ....
Par avance Merci.

Voici une DLL qui te permettra de manipuler ton AD facilement : http://www.codeproject.com/Articles/...tory-in-VB-NET

Pour répondre à ta question, regarde la méthode AddUserToGroup() ;)

Tout d'abord merci pour la réponse :)


J'ai testé la fameuse DLL et j'ai eu beau la tourner et retourner dans tous les sens je n'arrive pas bien à comprendre le fonctionnement de "AddUserToGroupe"


Visiblement ça dois ressembler à quelque chose comme ça si je ne m'abuse
Mais je ne trouve pas quoi mettre exactement dans mes variables.

Code:

---

ADWrapper.AddUserToGroup(oDE, oUser, oGrp)

---

Pour oDE j'ai ->

Code:

---

Dim oDE As DirectoryEntry = New DirectoryEntry("LDAP://OU=GROUPES,OU=AAAA,DC=BBBB,DC=CCCC,DC=DDDD,DC=EEEE")

---

Pour oUser j'ai ->

Code:

---

Dim oUsrDn As DirectoryEntry = New DirectoryEntry("LDAP://CN=nom_utilisateur,OU=users,OU=ville,OU=AAAA,DC=BBBB,DC=CCCC,DC=DDDD,DC=EEEE")

---

pour oGRP j'ai ->

Code:

---

oGrp = "nom du groupe"

---

Lorsque je teste j'ai le message "erreur non spécifiée".

Alors pour corser un peut la chose je précise que je prépare une appli sur mon poste dans un domaine A que je lance dans une session citrix sur un domaine B, de ce fait je ne peut pas utiliser la fonction débogage de visual basic express, je suis à chaque tentative obligé de publier l'application pour la lancer sur un autre domaine.

Peut-être que tes chemins LDAP ne sont pas corrects ?

Il y a quelques années j'ai bossé sur un projet qui nécessitait des interactions avec l'AD, et je me souviens que c'était un bon bordel :mur:

Le pire, ce sont les messages d'erreurs retournés qui ne servent à rien en règle générale...

Bon j'ai finis par trouver une solution simple :


http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Au cas ou ça pourrai aider d'autres personnes.

En tout cas merci pour votre aide :)