Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/29: Рейтинг темы: голосов - 29, средняя оценка - 4.72
3 / 3 / 0
Регистрация: 26.01.2016
Сообщений: 62

ФИО пользователя учетной записи

16.02.2018, 15:34. Показов 5757. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день!
Подскажите как выцепить ФИО пользователя из учетной записи.
Environ возвращает логин
Application.username возвращает ФИО или то что указано в самом приложении офиса.

Но как достать ФИО которое присваивают при создании учетной записи в винде? (Надеюсь понятно сформировал вопрос &#129322

Username использую, но если пользователь ввёл ФИО по своему усмотрению, то затрудняется идентификация. А вот изменить ФИО учетной записи пользователь не может так как нет прав))

Заранее спасибо за помощь!
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.02.2018, 15:34
Ответы с готовыми решениями:

Автовыбор учетной записи в VBA
Всем привет! Подскажите каким образом можно при отправле почты сменить учетную запись. Дело в том что в компании две учетки в...

Имя учетной записи компьютера в VBA
Друзья! Оооооочень много вариантов получения имени пользователя, однако почти ничего не нашел, как найти имя учетной записи...

Отправка почты с нужной учетной записи с Outlook
Привет. Подскажите пожалуйста, как можно настроить данный макрос, чтобы он в outlook (где несколько учетных записей) выбирал необходимый,...

6
35 / 35 / 9
Регистрация: 16.07.2012
Сообщений: 253
16.02.2018, 15:46
Лучший ответ Сообщение было отмечено Kazimirskiy как решение

Решение

Kazimirskiy,
как вариант:
Visual Basic
1
2
3
4
5
6
Sub asdas()
Set SI_ = CreateObject("ADSystemInfo")
Set Un_ = GetObject("LDAP://" & SI_.UserName)
UZ_ = Un_.DisplayName
Cells(1, 1).Value = UZ_
End Sub
имя учетки выводится в ячейку A1
3
3 / 3 / 0
Регистрация: 26.01.2016
Сообщений: 62
16.02.2018, 16:02  [ТС]
Оно самое. Спасибо)
0
35 / 35 / 9
Регистрация: 16.07.2012
Сообщений: 253
16.02.2018, 16:03
Kazimirskiy, Всегда пожалуйста!
0
Заблокирован
16.02.2018, 16:12
Не проще ли штатным средством -
Visual Basic
1
[a1]=Environ("UserName")
0
35 / 35 / 9
Регистрация: 16.07.2012
Сообщений: 253
16.02.2018, 16:15
Цитата Сообщение от Остап Бонд Посмотреть сообщение
Не проще ли штатным средством -
Может и проще) но этот вариант возвращает логин учетки а не ФИО.
Например логин учетки ivanov.10 а сама учетка подписана как Иванов Иван.
Автору как я понял нужно выцепить "Иванов Иван" а не ivanov.10
0
3 / 3 / 0
Регистрация: 26.01.2016
Сообщений: 62
16.02.2018, 16:16  [ТС]
Так он вернёт только логин пользователя в системе. А мне нудно полное имя
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.02.2018, 16:16
Помогаю со студенческими работами здесь

Выбор учётной записи в Outlook при отправке почты из Excel
Добрый день. Что-то не могу выиграть отправку почты. Есть Dim OutApp As Object Dim OutMail As Object Dim cell As Range ...

ФИО учетной записи Windows
Добрый день. Данный код вытаскивает логин учетной записи: var WinName = new ActiveXObject("WScript.Network"); Rname...

Создание учётной записи пользователя
Подскажите, как создать учётную запись через grant?

Удаление учетной записи мир пользователя на mail.ru
Доброго времени суток всем! Не знаю к кому обратиться с такой проблемой: нужно удалить мир пользователя на mail.ru. Очень достал подругу....

Автоматическое закрытие программ пользователя и выход из учетной записи
Есть удаленный сервер под Windows 2012. На нём сидит несколько человек. Происходит в любой момент и не у всех пользователей выход из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru