Computer Name

' Nice Script
' Don't remember where from I've got it
' The Script changes "My Computer" on your Desktop to the real computer name

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

No comments:

Recent Posts