Utiliser VB.NET et Active Directory

Thomas Lebrun

Cet article vous expliquera comment utiliser le VB.NET pour effectuer les manipulations les plus courantes sur Active Directory (listage des utilisateurs, ajout, modification).

- Titre : Utiliser VB.NET et Active Directory

- Auteur : Thomas Lebrun

- Parution : 21 juillet 2004

- Mise à jour : 12 avril 2013

- Licence : Copyright ® 2013 Thomas Lebrun. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Sommaire

- I. Avant-propos

- II. Présentation d'Active Directory

- III. Active Directory et Visual Studio

- IV. Connexion à Active Directory

- V. Listage des utilisateurs

- VI. Modification d'un utilisateur

- VII. Ajout d'un utilisateur

- VIII. Conclusion

I - Avant-propos

L'interaction entre le VB.NET et l'Active Directory est chose de plus en plus courante. Beaucoup d'entreprises et de particuliers cherchent à les utiliser pour développer des applications de tout genre.
Cet article vous expliquera les principales tâches que vous pouvez faire en utilisant VB.NET et l'Active Directory : lister les informations des utilisateurs, ajouter un utilisateur, modifier un utilisateur, etc.

II - Présentation d'Active Directory

Avant de commencer à parler codage, intéressons-nous à Active Directory, afin de comprendre ce que c'est. Active Directory, c'est le service d'annuaire de Microsoft Windows 2000. Il permet de gérer les ressources du réseau : données utilisateurs, imprimantes, serveurs, base de données, groupes, ordinateurs et stratégies de sécurité.
Les utilisateurs n'ont pas à se préoccuper de la structure physique du réseau pour accéder à ces ressources.
Active Directory simplifie l'administration du réseau en permettant l'accès à toutes ces ressources à partir d'un seul et unique point d'administration. Les autres bénéfices sont une structure hiérarchique flexible et la capacité de montée en charge qui autorise le stockage de plusieurs millions de ressources.
Pour se connecter à l'Active Directory, il faut utiliser le protocole de connexion LDAP (Lightweight Directory Access Protocol), qui est un protocole de gestion d'annuaire de réseau.

III - Active Directory et Visual Studio

Avant de pouvoir utiliser les objets nécessaires à la manipulation d'Active Directory, vous devez ajouter une référence dans Visual Studio :

System.DirectoryServices.dll

Ensuite, pensez à ajouter la référence dans les clauses using, en faisant :

Ajout du namespace System.DirectoryServices

Imports System.DirectoryServices

Une fois que vous avez fait cela, vous pouvez passer à la partie codage proprement dite, et donc commencer par vous connecter à Active Directory.

IV - Connexion à Active Directory

La connexion à un annuaire Active Directory est très simple, sans doute la partie la plus simple du codage.
Pour vous connecter à Active Directory, vous devez utiliser l'objet DirectoryEntry.
Le constructeur de cet objet prend en paramètre trois chaînes de caractères :

- le chemin vers l'annuaire Active Directory (également appelé AD) : ce chemin est de la forme : LDAP://votre-nom-AD ;

- le nom d'utilisateur pour la connexion (l'utilisateur doit faire partie de l'AD) ;

- le mot de passe correspondant.

Vous devez donc avoir quelque chose comme ceci :

Connexion à l'annuaire Active Directory

Try

Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://votre-nom-AD", "Login", "Password")

Catch Ex As Exception

MessageBox.Show(Ex.Message)

End Try

Si aucune erreur n'est interceptée par la clause Catch, cela signifie que vous vous êtes connecté avec succès à Active Directory.
Vous pouvez donc passer à la suite de l'article, c'est-à-dire au listage des utilisateurs d'Active Directory.

V - Listage des utilisateurs

Pour lister les utilisateurs présents dans Active Directory, le principe est simple : on parcourt l'AD et à chaque fois que l'on rencontre un objet de type utilisateur, on affiche les informations voulues. Voilà pour la théorie, passons maintenant à la pratique !

Pour effectuer une recherche dans l'AD, vous devez utiliser l'objet DirectorySearcher.

Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://votre-nom-AD", "Login", "Password")

Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap)

Ensuite, il vous faut préciser un filtre de recherche, au moyen de la propriété Filter. Dans notre cas, nous ne désirons avoir que les utilisateurs, donc nous écrivons :

Filtrage sur les utilisateurs

searcher.Filter = "(objectClass=user)"

L'objet DirectorySearcher possède deux méthodes principales pour la recherche :

- FindOne(), qui retournera le premier objet correspondant au critère de recherche ;

- FindAll(), qui retourne tous les enregistrements correspondant au critère de recherche.

Nous désirons lister tous les utilisateurs, nous allons donc utiliser la méthode FindAll() :

On boucle pour récupérer et afficher les informations désirées

Dim DirEntry As DirectoryEntry

For Each result As SearchResult In searcher.FindAll

// On récupère l'entrée trouvée lors de la recherche

DirEntry = result.GetDirectoryEntry

//On peut maintenant afficher les informations désirées

Console.WriteLine("Login : " + DirEntry.Properties("SAMAccountName").Value)

Console.WriteLine("Nom : " + DirEntry.Properties("sn").Value)

Console.WriteLine("Prénom : " + DirEntry.Properties("givenName").Value)

Console.WriteLine("Email : " + DirEntry.Properties("mail").Value)

Console.WriteLine("Tél : " + DirEntry.Properties("TelephoneNumber").Value)

Console.WriteLine("Description : " + DirEntry.Properties("description").Value)

Console.WriteLine("-------------------")

Next

Ce code vous permet d'accéder aux diverses informations sur chaque utilisateur contenu dans Active Directory. Je n'ai limité ici l'affichage qu'à ces valeurs, mais vous pouvez tout à fait en rajouter d'autres, telles que l'adresse, la société, etc.
Une liste complète des attributs pouvant être visualisés peut être trouvée ici :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adschema/adschema/c_user.asp

VI - Modification d'un utilisateur

Modifier un utilisateur est aussi simple que d'afficher les utilisateurs. En effet, pour le modifier, il vous faut juste le trouver dans Active Directory (ce que vous avez vu au chapitre précédent).
Il vous faut donc juste changer la valeur du filtre de recherche, et utiliser la méthode FindOne(), plutôt que FindAll(), étant donné que l'on part du principe que vous ne voulez modifier les informations que d'un utilisateur.

Reprenons donc notre code :

Modifier un utilisateur

// Connexion à l'annuaire

Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://votre-nom-AD", "Login", "Password")

// Nouvel objet pour instancier la recherche

Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap))

// On modifie le filtre pour ne chercher que l'user dont le nom de login est TEST

searcher.Filter = "(SAMAccountName=TEST)"

// Pas de boucle foreach car on ne cherche qu'un user

Dim result As SearchResult = searcher.FindOne()

// On récupère l'objet trouvé lors de la recherche

Dim DirEntry As DirectoryEntry = result.GetDirectoryEntry()

// On modifie la propriété description de l'utilisateur TEST

DirEntry.Properties("description").Value = "Nouvelle description pour TEST"

// Et son numéro de téléphone

DirEntry.Properties("TelephoneNumber").Value = "0123456789"

// On envoie les changements à Active Directory

DirEntry.CommitChanges()

Explications du code :

On commence par se connecter à l'annuaire LDAP. Ensuite, on utilise un objet DirectorySearcher sur lequel on applique le filtre adéquat : on ne veut que le user dont le login est TEST, donc dont SAMAccountName=TEST.
On lance ensuite la recherche.
Une fois que l'on a trouvé le premier objet correspondant, on le récupère, puis on peut modifier son/ses attributs.
Enfin, l'appel à CommitChanges() permet d'envoyer les changements au serveur Active Directory.

VII - Ajout d'un utilisateur

Pour ajouter un utilisateur, c'est un peu le même principe :

- connexion à l'Active Directory ;

- création d'un nouvel objet ;

- définition des propriétés de l'objet ;

- envoi des changements au serveur.

Voyons donc ce que cela donne en matière de code :

Ajout d'un utilisateur

// Connexion à l'annuaire

Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://votre-nom-AD", "Login", "Password")

// Création du user Test User et initialisation de ses propriétés

Dim user As DirectoryEntry = Ldap.Children.Add("cn=Test User", "user")

user.Properties("SAMAccountName").Add("testuser")

user.Properties("sn").Add("User")

user.Properties("givenName").Add("Test")

user.Properties("description").Add("Compte de test créé par le code")

// On envoie les modifications au serveur

user.CommitChanges()

// On va maintenant lui définir son password. L'utilisateur doit avoir été créé

// et sauvé avant de pouvoir faire cette étape

user.Invoke("SetPassword", new object () {"motdepasse"})

// On va maintenant activer le compte : ADS_UF_NORMAL_ACCOUNT

user.Properties["userAccountControl"].Value = 0x0200

// On envoie les modifications au serveur

user.CommitChanges()

Explications du code :

Ici, nous nous connectons à l'annuaire Active Directory, puis nous indiquons que nous allons ajouter un nœud enfant au moyen de Children.Add, qui prend en paramètre :

- le nom de la nouvelle entrée ;

- le schéma (type) de la nouvelle entrée. Dans notre cas, c'est un utilisateur, donc user en anglais.

Ensuite, nous définissons les propriétés de l'utilisateur, au moyen de la méthode Add : son nom de login (SAMAccountName), son nom, son prénom et sa description.
Bien sûr, vous pouvez tout à fait renseigner d'autres propriétés, toujours en vous servant de la liste que vous trouverez ici :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adschema/adschema/c_user.asp

Une fois cela fait, nous appelons CommitChanges(), afin de renvoyer les modifications (dans notre cas, il s'agit d'un ajout) au serveur.
Puis, nous utilisons la méthode Invoke, pour définir le mot de passe de l'utilisateur. Avant de pouvoir utiliser cette méthode, nous devons nous assurer que l'utilisateur existe bien dans l'AD, d'où le précédent appel à CommitChanges().
Enfin, nous définissons le type de compte que nous désirons, au moyen de la propriété userAccountControl : nous voulons un simple compte, donc il faut employer la constante adéquate.

Voici la liste des constantes :

Valeur

Effet

const long ADS_UF_SCRIPT = 0x0001;

Le script de démarrage sera exécuté

const long ADS_UF_ACCOUNTDISABLE = 0x0002;

Désactiver le compte

const long ADS_UF_HOMEDIR_REQUIRED = 0x0008;

Nécessite un répertoire racine

const long ADS_UF_LOCKOUT = 0x0010;

Le compte est verrouillé

const long ADS_UF_PASSWD_NOTREQD = 0x0020;

Aucun mot de passe nécessaire

const long ADS_UF_PASSWD_CANT_CHANGE = 0x0040;

L'utilisateur ne peut pas changer de mot de passe

const long ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = 0x0080;

Cryptage du mpd autorisé

const long ADS_UF_TEMP_DUPLICATE_ACCOUNT = 0x0100;

Compte d'utilisateur local

const long ADS_UF_NORMAL_ACCOUNT = 0x0200;

Compte classique

Vous pouvez retrouver cette liste (ainsi que des exemples) ici :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mmsdev/mms/example__enabling_or_disabling_a_user_account_in_active_directory.asp

Pour finir, un dernier appel à CommitChanges() permet d'envoyer au serveur les dernières modifications/ajouts apportés à l'utilisateur.

Voilà, vous venez de créer avec succès l'utilisateur Test User dont le nom de login est testuser et dont les propriétés sont celles que vous avez définies plus haut.

VIII - Conclusion

Voilà, nous avons vu, au fil de cet article, les principales opérations que vous pourriez être amené à effectuer dans le cas où vous utiliseriez Active Directory conjointement avec le VB.NET.

Bien sûr, cet article n'est pas exhaustif : d'autres opérations peuvent être effectuées, aussi bien sur les groupes que sur les utilisateurs, mais je me suis contenté d'aller à l'essentiel et à ce qui pourrait concerner le plus grand nombre de développeurs : pourquoi pas une suite dans un prochain article…
En attendant, j'espère que vous avez apprécié la lecture de celui-ci et je vous dis :

À vos claviers !