VBA中的Windows用户名

Question

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

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

Answer 1

你应该能够使用这样的函数：

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