Script changes description of My Computer icon to display Computer: ComputerName

Can be very handy when troubleshooting computer remotely when we require user to tell us name of the computer user works on.
Script works on Windows 2000/XP/Vista/7.

' -----------------------------------------------------------
' Change MyComputer Icon Description to include computername
' -----------------------------------------------------------
Const MY_COMPUTER = &H11&
Const MY_NETWORK = &H12&
Set WshNtwk = WScript.CreateObject("WScript.Network")
strUserDomain = WshNtwk.UserDomain
strComputer = WshNtwk.ComputerName
strUserName = WshNtwk.UserName
objComputerName = ("Computer: " & strComputer)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = objComputerName