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

Commenter

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

S'inscrire maintenant

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.