Microsoft Access Programmierrezepte

R12.21 Den Userlogin-Namen abfragen

Aufgabe

Für eine Protokollfunktion brauchen Sie den Namen des aktuellen Windows-Nutzers.

Lösung

Verwenden Sie die API-Funktion GetUserName, der Sie einen Stringpuffer übergeben. Ist die Funktion erfolgreich aufgerufen worden, können Sie aus dem Puffer den gewünschten Namen extrahieren (bis zum ersten Null-Zeichen).

Oberfläche

Lediglich ein Formular mit einem Textfeld und einer Befehlsschaltfläche ist erforderlich.

Quelltext

Einbinden der API-Funktion:

Private Declare Function GetUserNameA& Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long)

Eine Hilfsfunktion für den Aufruf:

Function GetUserName() As String Dim puffer As String puffer = String(100, 0) If GetUserNameA(puffer, 100) > 0 Then GetUserName = Left(puffer, ...