![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Rename the My Computer Icon on the Local Computer
|
||
' Description: Renames the My Computer icon on the local computer, giving it the same name as the computer itself.
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 | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |