Получение полного имени пользователя Windows макросом VBA

Чтобы получить полное имя пользователя в Windows, можно использовать функцию UserFullName:

Данная функция использует интерфейс WMI для получения необходимых данных.

Посмотреть список всех учётных записей пользователей на компьютере можно следующим кодом:

Результат работы этого кода:

FullName: ASP.NET Machine Account
FullName: Учетная запись помощника для удаленного рабочего стола
FullName: CN=Microsoft Corporation,L=Redmond,S=Washington, C=US
FullName:
FullName: VBA Developer

Если же вам нужно получить только логин (имя пользователя) Windows, то код будет заметно проще:
(все 3 способа равнозначны — возвращают один и тот же результат)

PS: При создании этого макроса была использована программа WMI Code Creator:

Комментарии

А разве Application.UserName ровно это и не возвращает?

Добрый день!
В этот код можно добавить адрес или IP?
Sub WMI_username()

Workbooks.Open «C:\Users\» & iName & «\Desktop\Áóôåðíûé ñêëàä.xlsx»

Dim iName As String
iName = Environ(«UserName»)

Workbooks.Open «C:\Users\iName\Desktop\Áóôåðíûé ñêëàä.xlsx»

Такая проблема, не могу получить адрес.
Выдает код ошибки 1004

При желании можно утяжелить код с помощью «Application.PathSeparator», дабы не зависеть от версий операционной системы.

Код, конечно, тестировался, — только на WindowsXP (да и в статье приведен результат работы кода)
Сейчас проверил — в WinXP код работает и с прямыми, и с обратными слешами.
Не знал, что в Win7 что-то поменяли в этом плане.

Исправил все слеши в коде.

Насчёт объявления переменных: видимо, у вас в настройках редактора VBA включена опция «Требовать объявление переменных»,
и, соответственно, первой строкой в модуле присутствует директива Option Explicit
Я же этот режим не использую — потому часто и не объявляю переменные в своих макросах.

Как изменить имя пользователя и личную папку в Windows 7

В некоторых случаях возникает необходимость изменить имя пользователя в Windows 7. Это может произойти во время установки игры или программы, которая требует, чтобы папка с личными файлами содержала только латинские буквы.

Большинство людей знает о том, что имя можно изменить в «Панели управления». Однако это действие не отразится на названии папки профиля. Что делать в таком случае? Неужели нужно переустанавливать операционную систему, но на этот раз ввести название профиля латинскими буквами? Или есть другое решение? Давайте узнаем.

Подробное руководство

В первую очередь зайдите в Windows 7 под администратором. После этого можно приступить к первому этапу.

Изменение имени «внутри» Windows 7

Зайдите в «Пуск», вызовите контекстное меню, щелкнув правой кнопкой мыши на «Компьютере» и выберите пункт «Управление».

В левой части окна перейдите в «Локальные пользователи и группы», «Пользователи». После этого выберите профиль, который нужно переименовать. Для того, чтобы сменить имя нужно кликнуть правой кнопкой мыши на учетной записи и выбрать соответствующий пункт меню. После этого нажимаем Enter (результат на картинке внизу).

Теперь можно закрыть окно «Управление компьютером» и перейти ко второму этапу.

Изменение отображаемого имени при входе в операционную систему

Заходим в «Пуск» — «Панель управления».

Переходим в «Учетные записи пользователей и семейная безопасность» — «Учетные записи пользователей». Нам нужно изменить отображаемое имя администратора.

Нажимаем «Изменение имени своей учетной записи».

Вводим «Ross» и нажимаем Переименовать . После этого можно закрыть «Панель управления». Но на этом ещё не всё. Для того чтобы обеспечить нормальную работу программ, необходимо переименовать папку профиля и изменить к ней путь. Давайте узнаем, как это сделать.

Переименование

Откройте «Компьютер» — «Локальный диск (С:)» и перейдите в «Пользователи».

Выберем «Mike Ross» и сменим её имя на «Ross». Вот на этом этапе большинство и сталкиваются с проблемой ­— в выпадающем списке нет пункта «Переименовать».

Обратите внимание: чтобы изменить название папки администратора, необходимо создать другого с правами администратора. Для этого перейдите в «Панель управления» ­— «Управление учетными записями» — «Добавление и удаление учетных записей» ­— «Создание новой учетной записи» (результат отображен на рисунке внизу).

Перепроверьте тип записи, какую вы создаёте — должно быть выбрано «Администратор».

Итак, вернёмся к изменению названия директории с пользовательскими файлами. Перейдем в «Диск С» ­— «Пользователи», выберем соответствующую профилю и нажмем «Переименовать».

Вот мы и добрались до последнего, четвертого этапа.

Изменение пути к пользовательским файлам и настройкам

Если после выполнения действий предыдущих этапов зайти в систему под пользователем «Ross», то можно увидеть, что все настройки программ сбились, а некоторые и вовсе перестали работать. Чтобы это исправить, нужно сменить путь к личным файлам пользователя.

Для этого нажмите Win + R .

Введите regedit и нажмите OK .

В «Редакторе реестра» перейдите в директорию HKEY_LOCAL_MACHINE — SOFTWARE —Microsoft — Windows NT — CurrentVersion — ProfileList.

Раскрываем ProfileList и находим подпапку со значением «C:\Users\Mike Ross» в параметре ProfileImagePath.

Для того чтобы сменить значение необходимо дважды нажать на параметр. Вводим новый адрес и нажимаем OK .

Подводим итоги

Для изменения имени необходимо иметь права администратора. Если необходимо сменить имя для единственного администратора в Windows 7, сначала вам нужно будет создать ещё один профиль с аналогичными правами.

После этого можно приступать к полному изменению наименования учетной записи в ОС Windows 7, которое состоит из 4 этапов:

1. Переименование на уровне операционной системы;
2. Изменение отображаемого наименования профиля;
3. Смена названия папки;
4. Указание нового пути к пользовательским файлам.

После того, как вы выполнили все действия, можно зайти в систему под переименованной записью и продолжить работу. Обратите внимание: в некоторых случаях пропадает фоновый рисунок рабочего стола — вместо него будет просто черный экран.

Видео по теме

• Как двумя способами изменить цвет панели задач Windows 7
• Как правильно отключить блокировку экрана Windows 7
• Как отключить гибернацию в Windows 10 8 7

Здравствуйте.
У меня не получается почему то.
после изменение название через локольные не могу создать еще одно администратора кнопка просто не работает. Пропуская создание нового админа происходит совсем не понятные изменение, что делать.

После всех махинаций пропал рабочий стол помогите пожалуйста. Нет не файлов не иконок на рабочем столе очень много важной информации… что делать?

У меня поначалу тоже так было. Ты пропустил действия под пунктом инструкции:
Изменение пути к пользовательским файлам и настройкам.
После этого все вернулось как было раньше.

Спасибо большое автор. Все получилось! Я вам так благодарна!

Спасибо за вашу подробную инструкцию! Все получилось!

Все помогло ! Сам в шоке

Спасибооооооооооо! Ты меня спас. Всех тебе благ.

При переименовании папки возникает ошибка что папка используется в другом приложении, но в диспетчере задач ничего нету, что делать?

Можно переименовать папку пользователя на диске С только с безопасного режима.
Команда msconfig. Предварительно выполнив вход с другой учетки с правами админа, разумееться.

Спасибо за статью, все получилось. Так же следует указать, что переименовать папку пользователя на диске С можно только с безопасного режима(!) команда msconfig, ну и выполнив вход с другой учетки с правами админа, разумееться.

Спасибо все работает

Делал всё как надо, но под конец сам же затупил и в реестре вместо одного ProfileImagePath, который ссылается на C:\Users\*предыдущее имя пользователя* заменил значения ВСЕХ ProfileImagePath’ов, которые были в подпапках папки ProfileList. Только потом понял, что сделал не то, что надо, но как отменить изменения в реестре не нашёл (CTRL+Z жмакал, искал в верхней панели). Решил «Будь, что будет» и перезапустил систему. Слетело всё. Из личной папки удалились все данные, слетела активация, а когда вхожу в переименованного пользователя, выскакивает уведомление о том, что я использую временную учётную запись (или как там оно называется). Вот уже несколько часов сижу и пробую всё подряд. Думал, что восстановление системы поможет, но нет. Пробовал восстановить сначала через основного пользователя (которого переименовывал), потом через того, через которого переименовывал папку. Так же переименовывал обратно папку пользователя (через второго юзера), изменял обратно все значения через управление компьютером, изменял значения в реестре обратно (уже через основного, понятное дело). Не помогает. Вот теперь главный вопрос: файлы из папки юзера удалены безвозвратно или лежат где-то сжатые в один файл? можно ли восстановить эти файлы или уже легче новую систему накатить?

Всё поручилось — спасибо за мануал!

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

я не могу сменить имя папки,говорит эта папка запущена и не хочет сменять имя что делать?

а вот у меня лично вообще нет в меню ни от имени администратора ни пункта переименовать,что делать в этом случае,всё что не пробую мои папки как были написаны по Русски так и не переводятся и не изменяются,какие бы монипуляции я с компьютером не производил,думаю что тупо надо винду переустановить и всё

В некоторые записи реестра не даёт вносить изменения. Уже штук 600 изменила, есть некорректности в работе компьютера. Что делать? Откатиться? Кажется, я не успела создать точку восстановления

Попробовал по инструкции сменить имя. Сменил. Но в реестре кругом ключи со старым именем. Не понравилось. Переустановил систему.
Некоторые манипуляции с системой невозможны, как бы нам этого не хотелось. Легче переустановить винду.

Если в управлении компьютером нет пункта «Локальные пользователи и группы», то его можно пропустить или лучше этого делать не стоит?

Как узнать имя текущего пользователя компьютера на Windows?

Когда вы устанавливаете операционную систему Windows, можете задать имя пользователя. В дальнейшем, при необходимости, можете это имя изменить. А как можно узнать имя текущего пользователя, если это, к примеру, чужой компьютер? Да очень просто, для этого существует сразу несколько способов.

Первый способ

Нажмите на кнопку «Пуск».

В верхней части меню указано имя пользователя.

Второй способ

Необходимо вызвать диспетчер задач. Это можно сделать, нажав на клавиши Ctrl+Shift+Esc.

Откройте вкладку «Пользователи», где указано имя текущего пользователя компьютера.

Третий способ

Запустите командную строку. Для этого нажмите клавиши Win+R на клавиатуре, чтобы вызвать окно «Выполнить». Добавьте команду cmd и нажмите ОК.

Командная строка запущена. Имя пользователя вы можете увидеть сразу же.

Если что-то пошло не так и вы почему-то не видите имя пользователя, введите команду Echo %UserName%, затем нажмите Enter.

Четвертый способ

Вызовите окно «Выполнить», нажав Win+R, введите команду msinfo32, нажмите ОК.

Откроется окно «Сведения о системе». Найдите строку «Имя пользователя».

Уважаемые пользователи! Если наш сайт вам помог или что-то в нем не понравилось, будем рады, если вы оставите комментарий. Заранее большое спасибо.