Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Script/Policy for autorename "My Computer" to Computers DNS name
- Thread starter Schirmag
- Start date
This is a start:
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
You can fiddle with it to get it to do what you want, but no promises....
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
You can fiddle with it to get it to do what you want, but no promises....
- Status
Similar threads
