sea707, такая задача несложно решается на клиентах без всяких утилит.
Простой пример на VBS:
Код:
Dim strUser, objComputer
strUser = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).FullName
Set objComputer = GetObject("LDAP://" & CreateObject("ADSystemInfo").ComputerName)
On Error Resume Next
objComputer.Put "Description" , strUser
objComputer.SetInfo
If Err.Number <> 0 Then Err.Clear
Set objComputer = Nothing
WScript.Quit 0
Главное, чтобы "учётке", от имени которой вносятся изменения в атрибут AD, хватало для этого полномочий.
