IsAdmin - Hat der aktuelle User Adminrechte? Die Funktion ermittelt, ob der current user Administrator-Rechte hat
Autor:   Helmut Suhren	Bewertung:	Views:  18.996
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Die nachfolgende Funktion ermittelt, ob der aktuell angemeldete User über Administrator-Rechte verfügt.

Imports System.Threading
Imports System.Security.Principal
...

''' <summary>
''' Prüft, ob der aktuell angemeldete User Adminrechte besitzt
''' </summary>
Public Function IsAdmin() As Boolean
  IsAdmin = CType(Thread.CurrentPrincipal, WindowsPrincipal).IsInRole( _
    WindowsBuiltInRole.Administrator)
End Function

Aufrufbeispiel:

If IsAdmin() Then
  MsgBox("Der angemeldete Benutzer besitzt Adminrechte!")
Else
  MsgBox("Der angemeldete Benutzer hat KEINE Adminrechte!")
End If

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.