Dim clsALG As New clsALG
        If clsALG.UserIsAdmin = False Then
            MessageBox.Show("Sie benötigen ADMINISTRATORRECHTE um den CD-Key" & _
              "anzuzeigen!" & vbCrLf & "Sie sind aber nur: " & _
              clsALG.UserLevelsString(clsALG.UserHasLevels) & vbCrLf & "Ich" & _
              "kann Ihnen den CD-Key nicht geben!!!", "FEHLER", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If

Public Class clsALG
 
   'Ist der Benutzer Admin?
   Public Function UserIsAdmin() As Boolean
    Dim oUser As Security.Principal.WindowsPrincipal = My.User.CurrentPrincipal
        If oUser.IsInRole(Security.Principal.WindowsBuiltInRole.Administrator) _
          = False Then Return False
 
        Return True
    End Function
 
    'Benutzerrechte in ein Array ausgeben
    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
 
    'Array mit benutzerrechten in String wandeln, fals benötigt
    Public Function UserLevelsString(ByVal ar() As String) As String
        UserLevelsString = ""
        For i As Integer = 0 To ar.Length - 1
            UserLevelsString += ar(i) & ", "
        Next
 
        Return UserLevelsString
    End Function
End Class

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
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/