Environ（“用户名”）返回错误的用户名

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

检索登录用户名