A. The following code renames the My Computer icon on the desktop to "My Computer <hostname>". You can run the code as a domain-level logon script or call it from another script.

option explicit

dim objNetwork, objShell, strComputer, objFolder, objFolderItem
Const MY_COMPUTER = &H11&

Set objNetwork = CreateObject("Wscript.Network")
Set objShell = CreateObject("Shell.Application")

strComputer = objNetwork.ComputerName

Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = "My Computer " & strComputer

You can change the last line to be any text that you want to use for the My Computer icon. It doesn't need to begin with My Computer.