Windows用户名在VBA中

我想知道我如何访问VBA中的Windows用户名,我的意思是显示在下面这张图片上的用户名:

在这里输入图像描述

我给这个精度,因为我已经尝试使用Environ("Username") ,但是这给了login,我必须input来启动与我想要的名称不同的窗口。

你应该可以使用这样的function:

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