Скрипт: замена My Computer на %USERNAME% on %COMPPUTERNAME%

'Смена стандандарного названия "Мой компьютер" на нечто более внятное.
'Типа "Мой компьютер %COMPUTERNAME% на %USERNAME%"
'Полезно при удаленных разборках с пользователями, особенно кода пользак не знает как называется его комп.
Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
objUserName = objNetwork.UserName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = "Мой копьютер" &(objUserName) & vbNewLine & "на " & (objComputerName)