Дмитрий

Упрощаем жизнь администратору, ассоциируем имя пол...
только в скрипте поменять что куда прописываться и получить someUserAttribute

On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("WScript.Network")
Set objUser = GetObject("LDAP://" & objNetwork.ComputerName)
objUser.Put "someComputerAttribute", objSysInfo.UserName
objUser.SetInfo

И не забыть дать права на запись в этот атрибут!

Есть похожая статья.
Залогиненные пользователи на ПК в консоли Active D...