Получение имени пользователя

[Ellienn]

Необходимо получить имя текущего пользователя, но такие методы как

usern = Environ("USERNAME")

или

usern = CreateObject("WScript.Network").Use rName

получают логин пользователя, а мне нужно полное имя, фамилию. Насколько я знаю они хранятся в реестре. Но вот как к ним добраться?

[Казанский]

А Вы их вводили куда-нибудь?
Если вводили при установке Офиса, то application.UserName

[Ellienn]

нужно получить имя не пользователя офис, а пользователя Windows

[EducatedFool]

нужно полное имя, фамилию. Насколько я знаю они хранятся в реестре.

Перерыл весь реестр - не нашел там своей фамилии.
А ведь за компом работаю уже много лет - должен же был комп догадаться, как меня звать-величать.
Странно...

нужно получить имя ... пользователя Windows

А что такое имя пользователя Windows? чем оно отличается от логина???

[Ellienn]

имя пользователя я нашла на HKEY_LOCAL_MACHINE. На корпоративных машинах, при создании нового домена сотруднику чаще всего вводят его ФИО. Сравнивала пути к нужной инфе в реестре. у разных пользователей имя конечной папки отличается. Но местоположение этой папки и поле где храниться имя одинаково. Вопрос состоит в том как мне с помощью VBA добраться до этой инфы?

[EducatedFool]

Вопрос состоит в том как мне с помощью VBA добраться до этой инфы?

Да очень просто, мы подскажем.
Только скажите путь в реестре, где хранится эта информация.

Пример:

Sub test()
    key$ = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner"
    Owner$ = CreateObject("WScript.Shell").RegRead(key$)    ' читаем из реестра
    Debug.Print Owner$    ' возвращает текст "Игорь"
End Sub

[Казанский]

http://www.google.com/search?q=vba+registry

или

http://www.google.com/search?q=vba+a...irectory+users

[Ellienn]

HKEY_LOCAL_MACHINE\SOFTWARE\MICROSO FT\WINDOWS\CurrentVersion\GroupPoli cy\State\ и дальше путь немного отличается у каждого пользователя (идет определенный номер). По этому пути есть поле Distinguished-Name и там в CN записано имя пользователя текущей учетной записи

[EducatedFool]

Вы про это значение говорите?
http://ExcelVBA.ru/pictures/20110830-oah-24kb.jpg

Специально изменил его в настройках - система потребовала повторного входа в систему.
После этого смотрел реестр - так туда ничего и не прописалось...
http://ExcelVBA.ru/pictures/20110830-mhn-61kb.jpg

[Ellienn]

Вот про это значение я и говорю
http://ExcelVBA.ru/pictures/20110830-mhn-61kb.jpg
только и у меня и у остальных пользователей там прописано полное имя