Imports System.Security.Principal

Partial Public Class groups
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim sb As StringBuilder = New StringBuilder
        Dim WinId As IIdentity = User.Identity
        Dim userId As WindowsIdentity = DirectCast(WinId, WindowsIdentity)
        sb.Append("<b>List of Windows Groups</b> for: " & userId.Name)
        Dim irefGroups As IdentityReferenceCollection = userId.Groups.Translate(GetType(NTAccount))
        Dim idRef As NTAccount
        For i As Integer = 0 To irefGroups.Count - 1
            idRef = irefGroups(i)
            sb.Append("<br />" & idRef.ToString)
        Next
        Label1.Text = sb.ToString()

    End Sub

End Class