Hier eine kleine Funktion zum ermitteln ob ein Benutz ein Administrator ist bzw. einer Administratorgruppe angehört.
Imports System.Security.Principal Public Class Form1 Public Function IsAdmin() As String Dim wp As New WindowsPrincipal(WindowsIdentity.GetCurrent()) Dim Role As Integer = WindowsBuiltInRole.Administrator If wp.IsInRole(Role) = True Then Return "ADMIN" Else Return "Kein ADMIN" End If End Function End Class