AF-Network

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