Home > Visual Basic Classic > Windows > Prüfen ob der ausführende Benutzer Administratorrechte besitzt

Prüfen ob der ausführende Benutzer Administratorrechte besitzt

Veröffentlicht am 18.03.2010 von Sebastian Krogolewski

Artikelinformationen

Sprache:
Visual Basic 6
Datenbank:
keine

Artikel speichern

del.icioMister WongGoogleLinkarenaYiggSpurlFurl

Artikel bewerten

Bewertng:0.00 / 5 (0 mal bewertet)

Seit dem Windows XP die alten 9x Systeme im privaten Bereich abgelöst hat ist man auch in diesen Bereich mit Benutzerrechten konfrontiert. Bestimmte Zugriffe auf die Registry, Systemdateien oder Systemeinstellungen sind dem Administrator vorbehalten hinzu kommt ab Windows Vista, dass ein Administrator nicht unbedingt auch diese Rechte besitzt. Grund dafür ist die ab Vista eingeführte UAC (User Account Control oder auf Deutsch die Benutzerkontensteuerung) die auch einem Benuzter mit Administratorrechten diese speziellen Rechte ersteinmal entzieht.

Der Benutzer hat die Möglichkeit Anwendungen explizit mit Administratorrechten zu starten um dieses Standardverhalten zu unterdrücken. Wenn in der Anwendung nun Zugriffe, welche die genannten Rechte benötigen, sollte man prüfen ob diese vorhanden sind um den Benutzer mitteilen zu können das diverse Funktionen der Anwendung nicht verwendet werden können bzw. diese Funktionen aus Berechtigungsgründen garnichts machen.

 

Einbinden der API Funktion IsUserAnAdmin als IsUserAnAdminAPI aus der Shell32.Dll:

1
Private Declare Function IsUserAnAdminAPI Lib "Shell32.Dll" Alias "IsUserAnAdmin" () As Long

 

IsUserAnAdmin erwartet 0 Parameter:

keine Parameter.

 

Rückgabewert:

1: Der Benutzer besitzt Administratorrechte.

!1: Der Benutzer besitzt keine Administratorrechte.

 

Diese Funktion kapselt den API Aufruf und liefert als Ergebnis (vom Typ Boolean) ein TRUE wenn der ausführende Benutzer Administratorrechte besitzt oder FALSE wenn er diese nicht besitzt.

VB Funktion
1
2
3
4
Public Function IsUserAnAdmin() As Boolean
 
IsUserAnAdmin = CBool(IsUserAnAdminAPI)
End Function

Downloads

Suchbegriffe

VB6, Visual Basic, IsUserAnAdmin, Shell32.Dll, API

Suche