windows - 访问函数返回用户名，而不是用户名

Question

有没有我可以用来将当前用户名返回到文本框的函数，而不是他们的用户名 - 所以 Joe Bloggs，而不是 jbloggs？

Answer 1

假设您设置了 Active Directory，您可以使用以下代码，取自Andrey Artemyev 的回答：

Public Function ADtest() As String
  Dim ADSI As Object, UN As Object
  Set ADSI = CreateObject("ADSystemInfo")
  Set UN = GetObject("LDAP://" & ADSI.UserName)
  ADtest = UN.FirstName
  ADtest = ADtest & " " & UN.LastName
  Set UN = Nothing
  Set ADSI = Nothing
End Function

_{（在此处添加答案以获得更好的可见性，制作社区 Wiki，因为它不是我的真正答案，我不想要功劳）}