Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If isAdmin() Then MsgBox("isAdmin") Else MsgBox("noAdmin")
        MsgBox("Username: " & Environment.UserName)
        MsgBox("Username: " & WindowsIdentity.GetCurrent.Name)
        MsgBox("Usertoken für weitere Apinutzung: " & _
          WindowsIdentity.GetCurrent.Token.ToString)
    End Sub
 
    Function isAdmin() As Boolean
        Return New WindowsPrincipal(WindowsIdentity.GetCurrent).IsInRole( _
          WindowsBuiltInRole.Administrator)
    End Function