RÉCUPÉRATION DES GROUPES AD D'UN USER EN ASPNET

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