Функция доступа для возврата имени пользователя, а не имени пользователя

Есть ли функция, которую я могу использовать, чтобы вернуть имя текущего пользователя в текстовое поле, а не их имя пользователя - так Joe Bloggs, а не jbloggs?

3
nl ja de
Это имя пользователя, а не имя пользователя ...
добавлено автор user1936588, источник
Отлично - код там отлично работал. Спасибо.
добавлено автор user1936588, источник
Да, мои извинения, одна секунда ...
добавлено автор LittleBobbyTables, источник
Если у вас установлен Active Directory, есть сообщение от Андрея Артемьева добавлено автор LittleBobbyTables, источник

1 ответы

Предполагая, что вы настроили Active Directory, вы можете использовать следующий код, взятый из Ответ Андрея Артемьева здесь :

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

(добавление ответа здесь для лучшей видимости, сделанного Community Wiki, поскольку на самом деле это не мой ответ, и я не хочу получать кредит)

4
добавлено
Ну, виртуальный голос.
добавлено автор Fionnuala, источник
Я держу это как фаворит, я понятия не имел, замечательная находка:)
добавлено автор Matt Donnan, источник
Про Windows
Про Windows
941 участник(ов)

Microsoft Windows и всё, что с этим связано. Список интересных групп и каналов: https://github.com/goq/telegram-list

Microsoft Developer Community Chat
Microsoft Developer Community Chat
584 участник(ов)

Чат для разработчиков и системных администраторов Microsoft Developer Community. __________ Новостной канал: @msdevru __________ Баним за: оскорбления, мат, рекламу, флуд, флейм, спам, NSFW контент, а также большое количество оффтоп тем. @banofbot