Benutzerrechte ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14

    ''' <summary>
    ''' Gibt ein Array mit den Benutzerrechten des angemeldeten Benutzers zurück.
    ''' </summary>
    Public Function UserHasLevels() As String()
        Dim Result As New System.Collections.Generic.List(Of String)
        For Each Value As Integer In System.Enum.GetValues(GetType(Security.Principal.WindowsBuiltInRole))
            If CType(My.User.CurrentPrincipal, Security.Principal.WindowsPrincipal).IsInRole( _
               CType(Value, Security.Principal.WindowsBuiltInRole)) Then
                Result.Add(CType(Value, Security.Principal.WindowsBuiltInRole).ToString())
            End If
        Next

        Return Result.ToArray()
    End Function