Rename “My Computer” on your Windows desktop to your computer name
To use this, just copy it to you computer, and rename it something.vbs. (Thanks to Darin for pointing that out.)
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
Darin:
VisualBasic?
February 26, 2008, 11:10 pm