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

Posted 2023-04-19

【中文标题】如何在 Windows Server 2008 上的 MS Access VBA 中获取 Windows 用户名

【英文标题】：How to get windows username in MS Access VBA on Windows Server 2008

【发布时间】：2015-12-18 09:39:14

【问题描述】：

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

它工作得很好。 但是，我们的外籍员工需要在服务器上使用该软件，并且无法检索用户名。 我们照常登录。 服务器版本为 Windows Server 2008 SP2。

有什么建议吗？

最好的问候，埃米尔。

【参考方案1】：

我不知道您使用的是哪种方法（有几个答案），但 HansUp 建议的这个方法很简单，希望也适用于服务器：

https://***.com/a/32565953/3820271

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