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

[Hugo121]

И впрямь.
Я сперва поискал себя по реестру, но надоело username пропускать - так и не дождался имени с фамилией.
Но они там есть!
Это на рабочей машине. Но кроме меня, там ещё пара админов засветились. Как сортировать?

Ага - ForceForegroundLogging только у меня 1, у других 0.

[EducatedFool]

Вот что, видимо, вам надо (использовать WMI):



Сейчас попробую сгенерировать код.


(добавлено)
А вот и ваш код:

Sub WMI_username()
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", , 48)
    For Each objItem In colItems
        Debug.Print "FullName: " & objItem.FullName
    Next
End Sub

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

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

(добавлено)
Хорошая это всё-таки программа - WMI Code Creator
Жаль, что не знал про неё раньше...
Можно любую информацию из компа выдрать, а программа поможет и посмотреть её, и код на VB сгенерировать.

[IgorGO]

аналогично.
в папке State пять папок с именами S-1-5-21*
Игорь, у меня 4 локальных админа там числятся. у все (и у меня в том числе) ForceForegroundLogging = 0. Игорь, так не вычислить.
Если не знать кто из перечисленных админ, а кто я - то тупик. названия папок отличаются последней группой из 5 цифр. на вид цифры у моей папки ничем не примечательнее остальных...

вывод:
направление поиска правильное, но пока это не метод определния имени, а гадание из вариантов.

[EducatedFool]

Итоговый код - именно то, что вам нужно было:

Function WMI_UserFullName() As String
    login$ = CreateObject("WScript.Network").UserName    ' читаем логин текущего пользователя

    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", , 48)
    For Each objItem In colItems    ' перебираем все учётные записи
        If objItem.Name = login$ Then WMI_UserFullName = objItem.FullName
    Next
End Function

Sub ПримерИспользования()
    ПолноеИмяПользователяWindows = WMI_UserFullName
    MsgBox ПолноеИмяПользователяWindows
End Sub

[Hugo121]

Первый вариант мне выдал всю сетку - начиная от Админовича и заканчивая Кинг Конгом...

[IgorGO]

у меня первый вариант выдал даже название отряда, в котором дед партизанил в Отечественную...

[Казанский]

Запустил код EducatedFool 2 часа назад. До сих пор работает
Появляется сообщение



Интересно, пока не нажмешь ОК - работа идет, или останавливается?

[EducatedFool]

Сообщение от Казанский

Запустил код EducatedFool 2 часа назад. До сих пор работает

Это, видимо, ещё не предел.
Наберитесь терпения
Ellienn (ТС) просматривала тему сразу после публикации мной функции WMI_UserFullName, и до сих пор не отписалась в теме, - видимо, всё ещё ждёт завершения работы макроса

[Djeki]

Сообщение от EducatedFool

Хорошая это всё-таки программа - WMI Code Creator
Жаль, что не знал про неё раньше...
Можно любую информацию из компа выдрать, а программа поможет и посмотреть её, и код на VB сгенерировать.

Немножко не по теме , но вот ещё одна хорошая программа. Выводит все программы автозагрузки в том числе и по username , и позволяет отключить / включить автозагрузку любой из этих программ. После того, как я снес некоторые программы (доктор Вэбэр, файервол ) , на автозагрузке остались их осколки, убрать которые было непросто, но с помощью этой проги я их легко и просто отключил.

Программа AutoRuns для Windows