Es ist manchmal so, das mann gerne das Arbeitsplatzicon auf dem Desktop anzeigen lassen möchte.
Nun kann es sein, das man dieses umbenennen möchte und es soll dann so heißen, wie der PC selber.
Hier mal ein VB-Script wie dieses zu bewerkstelligen ist.
Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = objComputerName