Feedback

VB - Benutzerrechte ermitteln

Veröffentlicht von am 20.11.2007
(1 Bewertungen)
Diese Funktion gibt die Benutzerrechte eines Benutzers(welch Wunder) als Array zurück.
    ''' <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

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!