Environ("username") возвращает неправильные имена пользователей

Question

Когда я выполняю свое приложение Access через чередующиеся сеансы, функция Environ("username") возвращает имя пользователя в моем отделе, отличное от реального пользователя, чей компьютер я сейчас использую для выполнения кода.

Никакого другого типа манипулирования именем пользователя не происходит во всей программе.

Есть идеи, как это возможно?

Answer 1

При этом используются функции Windows API для возврата имени пользователя, который в данный момент вошел в систему.

'// API Declarations
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
  As Long


Function UserName() As String
    '// Returns the name of the logged-in user
    Dim Buffer As String * 100
    Dim BuffLen As Long
    BuffLen = 100
    GetUserName Buffer, BuffLen
    UserName = Left(Buffer, BuffLen - 1)
    'MsgBox UserName
End Function

Получение зарегистрированного имени пользователя