» Как изменить обои рабочего стола в сеансе RDP

Собственно столкнулся со следующей проблемой: есть несколько серверов с Win2003, котоые выполняют абсолютно одинаковые задачи и, соответственно, имеют идентичный интерфейс вплоть до ярлыков на робочем столе. Отсюда возникла потребность в том, чтобы уставший мозг мог безошибочно их идентифицировать по обоям рабочего стола при подключении по RDP, но, к сожалению тут ждал облом - смена обоев невозможна. Сталкивался ли кто с подобной проблемой, и есть ли варианты решения? (Googling результата не дал).

Ну обои не обои, а вывести информацию о компе на раб стол можно. Bginfo это умеет. Я его вешал через групповые политики, чуть поднастроив. Проблем никаких.
Но есть разные требования и ограничения. Вот тут, автор другую утилиту хвалит, говорит, что ему она подошла под его задачи.

Сам пользуюсь bginfo и никаких проблем не наблюдаю.
Но сделал я красиво - через GPO запускается скрипт vbs, который проверяет наличие папки bginfo в профиле пользователя (%appdata%), а также подключил фильтр, чтобы данный скрипт фильтровал по названиям рабочих станций или серверов.
Если интересно, то вот сам скрипт:

' Скрипт Bginfo. VBScript
' Включаем обработчик ошибок
on error resume next
' Объявляем переменные
dim WSHShell, sd, computer, Fso, f, par
Set wshShell = CreateObject("WScript.Shell")
' Определяем положение папки AplicationData
sd=wshShell.ExpandEnvironmentStrings ( "%appdata%")
' Определяем имя компьютера
computer = WshShell.ExpandEnvironmentStrings("%computername%")
' Преобразовываем все быквы в заглавные в имени компьютера
computer=ucase(computer)
' Проверяем имя компьютера по фильтрам
a = 0
a = a + instr(1,computer,"COMP_1")
a = a + instr(1,computer,"COMP_2")
a = a + instr(1,computer,"COMP_n")
a = a + instr(1,computer,"SERV_1")
a = a + instr(1,computer,"SERV_2")
a = a + instr(1,computer,"SERV_n")
' Если имя компьютера удовлетворяет фильрт, то идём дальше:
if a = 0 then
Set Fso = CreateObject ("Scripting.FileSystemObject")
' Проеряем наличие папки Bginfo
f = fso.FolderExists (sd & "\Bginfo")
' Если папки нет, то зоздаём её и копируеи туда 2 файла
if f=false then
fso.CreateFolder (sd & "\Bginfo")
fso.copyfile "Bginfo.exe", (sd & "\Bginfo\Bginfo.exe")
fso.copyfile "Config.bgi", (sd & "\Bginfo\Config.bgi")
else
' Если папка есть, то обновляем только файл конфигурации для Bginfo
fso.copyfile "Config.bgi", (sd & "\Bginfo\Config.bgi")
end if
' Запускаем Bginfo в фоновом режиме
par="/Iq " & chr(34) & sd & "\Bginfo\Config.bgi" & chr(34) & " /timer:0 /nolicprompt"
WSHShell.Run (chr(34) & sd & "\Bginfo\Bginfo.exe" & chr(34) & " " & par)
Set Fso = Nothing
end if
Set wshShell = Nothing

Большое спасибо откликнувшимся, буду пробовать