Utiliser VB.NET et Active Directory

21/07/2004

Par LEBRUN Thomas (Autres Articles)
 

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

Ajout du namespace System.DirectoryServices
Imports System.DirectoryServices

• le chemin vers l'annuaire Active Directory (également appellé AD) : ce chemin est de la forum : LDAP://votre-nom-AD
• le nom d'utilisateur pour la connexion (l'utilisateur doit faire parti de l'AD)
• le mot de passe correspondant

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

Initialisation de la recherche
Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://votre-nom-AD", "Login", "Password")
Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap)

Filtrage sur les utilisateurs
searcher.Filter = "(objectClass=user)"

• FindOne(), qui retournera le premier objet correspondant au critère de recherche
• FindAll(), qui retourne tous les enregistrements correspondants au critère de recherche

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'a 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

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()

• connexion à l'Active Directory
• création d'un nouvel objet
• définition des propriétés de l'objet
• envoi des changements au serveur

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()

• 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 sur, vous pouvez tout à fait renseigner d'autre 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 :