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

Question

是否有一个函数可用于将当前用户名返回到文本框而不是用户名 - 所以Joe Bloggs，而不是jbloggs？

Answer 1

假设您已设置Active Directory，您可以使用以下代码，取自Andrey Artemyev's answer here：

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，因为它不是我的答案，而且我不想要信用）}