diamon@truediamon.ru:~$

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

В принципе в коде всё понятно, можно обойтись и без комментариев. Единственное неочевидное место:
$DisplayName=(Get-ADUser ($LoggedonUserName.Split('\\')\[1\])).name Дело в том, что класс Win32_ComputerSystem отдаёт имя в формате domain\username, с помощью метода .Split я разбиваю строку на массив из двух элементов и беру из него второе значение.
Скрипт требует модуля ActiveDirectory, входящего в стандартную поставку.

####################################################
# SetCompADDescription.ps1 by diamon
# 2013-03-27
#
#Записывает в описание компьютера в active directory имя залогиненого на нем пользователя
####################################################
cls
 
Import-Module ActiveDirectory
 
$Сomputers = Get-ADComputer -Properties OperatingSystem, Description, ManagedBy -Filter "OperatingSystem -NotLike '*server*'"
 
foreach ($Сomputer in $Сomputers) {
	$СomputerName=$Сomputer.Name
	$Available = Get-WMIObject Win32_PingStatus -filter "Address='$СomputerName'"
	if ($Available.StatusCode -eq 0) {
		$LoggedonUserName = (Get-WMIObject -Class Win32_ComputerSystem -ErrorAction SilentlyContinue -ComputerName $СomputerName).UserName
		if ($LoggedonUserName -ne $null) { $DisplayName=(Get-ADUser ($LoggedonUserName.Split('\')[1])).name }
		else { $DisplayName=$null }
		Write-Host $Сomputer.Name,"`tDescription=",$Сomputer.Description,"`tLoggedUser=",$LoggedonUserName,"`tDisplayName=",$DisplayName
		if (($Сomputer.Description -ne $DisplayName) -and ($DisplayName -ne $null)) {
				Write-Host "`nОтсутствует (или устаревшее) описание`nМеняем на новое - ", $DisplayName, "`n"
				Set-ADComputer -Identity $Сomputer -Description $DisplayName
		}
	}
	else {
	Write-Host "$СomputerName недоступен" -ForegroundColor Red
	}