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.

View source
  1. Const MY_COMPUTER = &H11&
  2.  
  3. Set objNetwork = CreateObject("Wscript.Network")
  4. objComputerName = objNetwork.ComputerName
  5. Set objShell = CreateObject("Shell.Application")
  6. Set objFolder = objShell.Namespace(MY_COMPUTER)
  7. Set objFolderItem = objFolder.Self
  8. objFolderItem.Name = objComputerName