Hier eine kleine Funktion zum ermitteln ob ein Benutz ein Administrator ist bzw. einer Administratorgruppe angehört.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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 |