Showing posts with label my computer. Show all posts
Showing posts with label my computer. Show all posts

12 September, 2010

Rename the desktop "My Computer" to pc name

Hi,

Using bginfo to add to the user desktop his workstation name ?
Why not just rename the "My Computer" text to the workstation name and that's it ?

2 ways to do it:
- Using VBS Script
- Using GPP

VBS Script:
===================================
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
===================================

GPP:
Just add a registry chnage on the user level:
===================================
Key:        Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
Value Name:     (Default)
Value Data:    %computername%
Type:        REG_SZ
==================================

The registry key by the way is (replace 123 with what you want):
==================================
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}]
@="123"
==================================

Have fun...