none
Модификация надписи для иконки "Мой компьютер" на рабочем столе RRS feed

  • Общие обсуждения

  • Добрый день коллеги. Подскажите, пожалуйста, как можно изменить надпись для иконки "Мой компьютер". Хочу изменить надпись по следующей схеме:

     

    Мой компьютер (Имя компьютера: %Computername%; Пользователь: %Username%)

     

    Подскажите, пожалуйста, как это можно реализовать на уже существующих в сети компьютерах, а также на вновь установленных.

    16 ноября 2007 г. 13:57

Все ответы

  • 'Смена стандандарного названия "Мой компьютер" .
    '"Мой компьютер %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 = "Мой копьютер" & vbNewLine &(objUserName) & vbNewLine & "на " & (objComputerName)

    16 ноября 2007 г. 19:38