如何在 Windows Server 2008 上的 MS Access VBA 中获取 windows 用户名

How to get windows username in MS Access VBA on Windows Server 2008

我在我的 MS Access 中使用此代码 VBA: How to get logged-in user's name in Access vba?

它工作得很好。 但是我们外地员工需要在服务器上使用软件,是无法找回用户名的。 我们照常登录。 服务器版本是 Windows Server 2008 SP2。

有什么建议吗?

此致,埃米尔。

我不知道您使用的是哪种方法(有几个答案),但是 HansUp 建议的这个方法很简单,希望也能在服务器上运行:

Public Function GetUserName() As String
    ' GetUserName = Environ("USERNAME")
    ' Better method, see comment by HansUp
    GetUserName = CreateObject("WScript.Network").UserName
End Function