Die folgende Funktion gibt den Benutzernamen für den angemeldeten Benutzer zurück und funktioniert sowohl unter Windows NT als auch unter Windows 95/98.

Public Declare Function GetUserName Lib "advapi32.dll" _

Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ReturnUserName() As String

' returns the NT Domain User Name

Dim rString As String * 255, sLen As Long, tString As String

tString = ""

On Error Resume Next

sLen = GetUserName(rString, 255)

sLen = InStr(1, rString, Chr(0))

If sLen > 0 Then

tString = Left(rString, sLen - 1)

Else

tString = rString

End If

On Error GoTo 0

ReturnUserName = UCase(Trim(tString))

End Function

Wenn Sie den Netzwerkbenutzernamen nicht zurückgeben möchten, aber den Benutzernamen zurückgeben möchten, den der Benutzer bei der Anwendung registriert hat, können Sie dies tun:

ActiveUserName = Application.UserName