windows - ユーザー名ではなくユーザー名を返す関数にアクセスします

Question

現在のユーザー名をユーザー名ではなくテキストボックスに返すために使用できる関数はありますか？つまり、jbloggsではなくJoe Bloggsですか？

Answer 1

Active Directory がセットアップされていると仮定すると、Andrey Artemyev の回答 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 を作成しました。クレジットは必要ありません）}