|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.08.2013, 21:07 | #1 |
Форумчанин
Регистрация: 26.07.2013
Сообщений: 134
|
Учетная запись компьютера
Друзья!
Оооооочень много вариантов получения имени пользователя, однако почти ничего не нашел, как найти имя учетной записи компьютера. Дорогие профессионалы, отзовитесь и помогите в решении данного вопроса. |
04.08.2013, 21:21 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Не это искали?
http://excelvba.ru/code/UserFullName |
04.08.2013, 22:38 | #3 |
Форумчанин
Регистрация: 26.07.2013
Сообщений: 134
|
Это я уже пересмотрел вдоль и поперек. Единственный код, приближен к моему вопросу:
Sub WMI_username() Set objWMIService = GetObject("winmgmts://./root/CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", , 48) For Each objItem In colItems MsgBox "FullName: " & objItem.FullName Next End Sub Но к сожалению этот код перебирает все учетные записи. А нужна одна текущая. И как ее вытащить, ума не приложу. Последний раз редактировалось ac1-caesar; 04.08.2013 в 23:48. |
05.08.2013, 03:00 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Это то?
Код:
Анализ,обработка данных Недорого
|
05.08.2013, 09:25 | #7 |
Форумчанин
Регистрация: 26.07.2013
Сообщений: 134
|
Вот это то. Спасибо.
Действительно, даже самая простая задача становится невыполнимой при неверно сформулированном вопросе. |
05.08.2013, 09:33 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
к этим данным можно так еще дотянуться:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
05.08.2013, 10:24 | #9 |
Форумчанин
Регистрация: 26.07.2013
Сообщений: 134
|
А есть ли возможность дотянуться до UserProfile и UserAccoun?
|
05.08.2013, 10:56 | #10 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
посмотреть все строки "окружения" можно так:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
bass Запись звука со всего компьютера | jhonyxakep | Мультимедиа в Delphi | 6 | 23.03.2017 11:47 |
Учетная запись в домене | Object_File | ASP.NET | 7 | 12.10.2012 14:59 |
Тип запись. Объявление типа запись. | Маленыч | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 11.05.2012 20:42 |
Запись звука с компьютера | ZBEP | Мультимедиа в Delphi | 3 | 22.07.2010 21:52 |
Как создать проект "учетная запись" в Delphi | Олюшка | Общие вопросы Delphi | 6 | 20.06.2010 16:22 |