VBA中的Windows用户名

Question

我想知道如何在VBA中访问Windows用户名，我的意思是下面显示的用户名：

我给出了这个精确度，因为我已尝试使用Environ("Username")，但是这给出了我必须输入的登录以启动与我想要的名称不同的窗口。

Answer 1

你应该可以使用这样的函数：

Public Function GetUserDisplayName() As String
    GetUserDisplayName = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).DisplayName
End Function