Учетная запись компьютера

[ac1-caesar]

Для ясности. В моем понимании "учетная запись (User Account)" - это когда включаешь компьютер, высвечивается имя учетной записи (Администратор или гость, может быть несколько) и под какой-то из них входишь в систему.
Как то так

[IgorGO]

это UserName - под чьей учетной записью сейчас работает система (с правами и настройками данного пользователя)

[ac1-caesar]

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

[IgorGO]

на моем компьютере любой сотрудник может указать свой доменный логин и пароль, загрузится его конфигурация: настройки системы, средства коммуникации (почта, коммуникатор) другие специфические программы.
ЮзерНейм - это и будет Логин (имя учетной записи), под которой осуществлен вход в систему.
что меняете Вы и что видите в результате и самое главное - что за информация Вам нужна - не понимаю.

[The_Prist]

IgorGO, вот кросс: http://www.cyberforum.ru/vba/thread933474.html
Там вроде как все-таки методом беспощадного тыка автор получил желаемое.

[KaSS]

Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
FIO = objUser.DisplayName
lback = InStrRev(FIO, " ")
getCyrName = Mid(FIO, 1, lback)
Set objUser = Nothing
Set objSysInfo = Nothing

[ac1-caesar]

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

Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
FIO = objUser.DisplayName
lback = InStrRev(FIO, " ")
getCyrName = Mid(FIO, 1, lback)
Set objUser = Nothing
Set objSysInfo = Nothing

пишет ошибку

[ac1-caesar]

Предлагаю сконцентрироваться на этом коде

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

Почему то этот код прочитывает имя учетной записи? Задача, чтобы всю остальную инфу не выводил.

[KaSS]

Сообщение от ac1-caesar

пишет ошибку

А вы попробуйте оставить

Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
FIO = objUser.DisplayName
Set objUser = Nothing
Set objSysInfo = Nothing

Это просто у меня имя учетной записи имя фамилия отчество, а нужно было получить только имя и фамилию

[ac1-caesar]

и так выдает ошибку. Похоже не может чего то найти