vba - Windows 8 升级后，VBA 中的环境 ("USERNAME") 返回 "User"

Question

我有一个 Access 数据库，需要使用 Environ("USERNAME") 检查用户的用户名.
虽然这适用于我使用 Win7 的用户，但我最近升级到 Win8 并且代码在我的笔记本电脑上返回文本“用户”。我也试过CreateObject("WScript.Network").Username结果相同。

这是 Windows 8 的东西吗，当其他用户升级时我会遇到问题吗？

有没有办法可以更改/配置此“用户”文本？我的笔记本电脑没有连接到其他用户正在使用的公司网络，所以当他们升级到 Win8 时，他们的笔记本电脑可能会返回正确的网络用户名。

Answer 1

我会使用这个 Windows API 调用:

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

    Public Function GetWindowsUserName() As String
        Dim strUserName As String
        strUserName = String(100, Chr$(0))
        GetUserName strUserName, 100
        GetWindowsUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
    End Function