Code snippets : VBscript : Change My Computer icon description

by | Nov 11, 2011 | Infrastructure, Scripting | 1 comment

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.

?
01
02
03
04
05
06
07
08
09
10
11
12
13
14
' -----------------------------------------------------------
' 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

1 Comment

  1. Jeff
    Jeff on August 15, 2014 at 9:54 am

    Very cool..

    I am OCD about organizing my desktop, this is a good tweak.

    I may have to rename some other desktop items (Recycle Bin?)

    Thanks Szymon.

    Jeff

Submit a Comment