Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB4, VB5, VB6 | 17.04.03 |
Ist der angemeldete User ein Administrator? Mit nur einer einzigen Deklaration können Sie unter NT/2000/XP überprüfen, ob der angemeldete User ein Administrator ist. | ||
Autor: Michael Schäffner | Bewertung: | Views: 15.568 |
ohne Homepage | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nur einer einzigen Deklaration können Sie unter NT/2000/XP überprüfen, ob der angemeldete User ein Administrator ist.
' benötigte API-Deklaration Private Declare Function IsNTAdmin Lib "advpack.dll" ( _ ByVal dwReserved As Long, _ ByRef lpdwReserved As Long) As Long
' Ist der Benutzer als Admin angemeldet? Public Function IsAdmin() As Boolean IsAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) End Function