'Rename My Computer Icon to the host computer name

Const MY_COMPUTER = &H11&

Set objShell = CreateObject("Wscript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

'=======================================
'Rename My Computer Icon to the Hostname 
'=======================================
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self

objFolderItem.Name = "マイ コンピュータ " & strComputer
'objFolderItem.Name = objFolder & " " & strComputer