Ms access 环境（“用户名”）与advapi32.dll

我知道在Access应用程序中检索用户名至少有两种方法

您可以使用环境功能：

environ("username")

您可以在advapi32.dll中使用GetUsername

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

s = String(l, Chr(32))
GetUserName s, l
username = Left$(s, l - 1)

以上哪种方法最安全？为什么

---

可能是一些背景信息，应用程序在本地计算机和远程桌面上都使用。

任何人都可以设置和取消设置环境变量、丢失或诸如此类，如果有人认为环境变量是错误源，这些情况往往很难重现

---

我肯定会选择advapi。

正如Simon所说，环境变量是可以操纵的，但是有些人也喜欢避免api调用，如果是这种情况，那么这是一个简单的选择：

Public Function GetUser() As String

    Dim WNet As Object

    Set WNet = CreateObject("WScript.Network")

    GetUser = WNet.UserName

    Set WNet = Nothing

End Function

---

+1除非我跳过

Set Nothing

语句，因为当WNet超出范围时，它将被销毁。