Public Function UserIsAdmin() As Boolean
        ' Admin?
        Dim oUser As Security.Principal.WindowsPrincipal = _
          My.User.CurrentPrincipal
        If oUser.IsInRole(Security.Principal.WindowsBuiltInRole.Administrator) _
        = False Then Return False
 
        Return True
    End Function
 
    Public Function UserHasLevel() As String
        UserHasLevel = ""
 
        Dim oUser As Security.Principal.WindowsPrincipal = _
          My.User.CurrentPrincipal
 
        If oUser.IsInRole( _
          Security.Principal.WindowsBuiltInRole.AccountOperator) Then
            UserHasLevel = "AccountOperator"
        ElseIf oUser.IsInRole( _
          Security.Principal.WindowsBuiltInRole.Administrator) Then
            UserHasLevel = "Administrator"
        ElseIf oUser.IsInRole( _
          Security.Principal.WindowsBuiltInRole.BackupOperator) Then
            UserHasLevel = "BackupOperator"
        ElseIf oUser.IsInRole(Security.Principal.WindowsBuiltInRole.Guest) Then
            UserHasLevel = "Guest"
        ElseIf oUser.IsInRole(Security.Principal.WindowsBuiltInRole.PowerUser) _
          Then
            UserHasLevel = "PowerUser"
        ElseIf oUser.IsInRole( _
          Security.Principal.WindowsBuiltInRole.PrintOperator) Then
            UserHasLevel = "PrintOperator"
        ElseIf oUser.IsInRole(Security.Principal.WindowsBuiltInRole.Replicator) _
          Then
            UserHasLevel = "Replicator"
        ElseIf oUser.IsInRole( _
          Security.Principal.WindowsBuiltInRole.SystemOperator) Then
            UserHasLevel = "SystemOperator"
        ElseIf oUser.IsInRole(Security.Principal.WindowsBuiltInRole.User) Then
            UserHasLevel = "User"
        Else
            UserHasLevel = " unbekannter Benutzertyp "
        End If
 
        Return UserHasLevel
    End Function

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
MFG: BiSoN

Es gibt nur zwei unverr?ckbare Weisheiten:
1. Der Computer n?tzt dem Menschen
2. Die Erde ist eine Scheibe

http://t00ltime.kilu.de/