Récupération des groupes ad d'un user en aspnet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 524 fois - Téléchargée 29 fois

Contenu du snippet

Tout est dans le titre ;-)

Source / Exemple :


Dim LocalisationAD As New DirectoryServices.DirectoryEntry("LDAP://") 'Adresse de votre AD
Dim RechercheGroupe As New System.DirectoryServices.DirectorySearcher(LocalisationAD)
Dim propertyCount As Integer
Dim GroupString As String

RechercheGroupe.Filter = ("(anr= DUPONT)") 'DUPONT est un exemple, mettez le nom que vous voulez
RechercheGroupe.PropertiesToLoad.Add("memberOf")

Try
   Dim myresult As SearchResult = RechercheGroupe.FindOne()
   propertyCount = myresult.Properties("memberOf").Count

   Dim dn As String
   Dim equalsIndex, commaIndex As String

   For i As Integer = 0 To propertyCount - 1
      dn = myresult.Properties("memberOf")(i)
      equalsIndex = dn.IndexOf("=", 1)
      commaIndex = dn.IndexOf(",", 1)
      GroupString += dn.Substring((equalsIndex + 1), (commaIndex - equalsIndex) - 1) & "|"
   Next

Catch ex As Exception
   If ex.GetType Is GetType(System.NullReferenceException) Then
      Response.Write("Pas de groupes associés !")
   Else
      Response.Write(ex.Message.ToString & ex.ToString)
   End If
End Try

A voir également

Ajouter un commentaire

Commentaires

noussawes
Messages postés
7
Date d'inscription
vendredi 18 septembre 2009
Statut
Membre
Dernière intervention
22 octobre 2009

est ce que je peux avoir ce code en c#.net
cs_Myke
Messages postés
138
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
2 février 2010

Comment fait-on pour aller recuperer le nom du groupe primaire

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.