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

One Comment

Comments are closed.