Имя компьютера на рабочем столе в доменной сети

Есть проблема: не все пользователи знают имя своего ПК.

Мы эту проблему решили, наклеив на все ПК стикеры с именем (помимо инвентарного номера). Но всё равно, остаётся часть пользователей, которые и на наклейке не могут найти имя ПК. 

 

Решение2:

меняем имя значка "Мой компьютер" или просто "Компьютер".

Скрипт на vbs простенький:

 

Const MY_COMPUTER = &H11&

Set objNetwork = CreateObject("Wscript.Network")

strComputer = objNetwork.ComputerName

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(MY_COMPUTER)

Set objFolderItem = objFolder.Self

objFolderItem.Name = "Компьютер: " & strComputer

 

Для тех, кто забыл:

открываем блокнот, вставляем вышеуказанное содержимое и сохраняем с расширением .vbs, устанавливаем скрипт в качестве стартового в групповой политике (либо выполняем вручную).

 

Результат выполнения скрипта такой:

Write a comment

Comments: 1
  • #1

    Дмитрий (Wednesday, 05 December 2018 19:50)

    Класс