Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1500
  • Last Modified:

Rename My Computer through Group Policy

How can I create a group policy in Active Directory to rename all of my user's "my computer" icons to reflect their machine name?

0
dpahlman
Asked:
dpahlman
  • 4
  • 3
  • 2
  • +1
1 Solution
 
NJComputerNetworksCommented:
You would have to create a custom script.  You can not do this natively inside GPO's.  But you can use a GPO to write a script to do this action and use the GPO to distribute the script.
0
 
dpahlmanAuthor Commented:
Would I have to write an ADM template?  That seems to be the only scripting information I can find about editing the registry.  I've never done that before and was hoping maybe someone here had written one.
0
 
NJComputerNetworksCommented:
no, you don't have to create an ADM template, you could create a bat sript, vbs script, kix tart script... anything..    

http://isweb2.memphis.edu/umad/documents/LogonScript.htm
0
Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

 
Jay_Jay70Commented:
Here is an examply of the script that you can use - happened to see it some time back and googled for it when i saw this - good old IT pro Web site!

http://www.windowsitpro.com/Article/ArticleID/47603/47603.html
0
 
Jay_Jay70Commented:
objFolderItem.Name = "My Computer " & strComputer

to achieve what you want change that line to this

objFolderItem.Name = "" & strComputer
0
 
LazarusCommented:
Actualy VBS script that works:


Const sKey = "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\"

Dim oWSS,sTemp,sGarbage
On Error Resume Next
Set oWSS = WScript.CreateObject("WScript.Shell")
sTemp = oWSS.RegRead(sKey & "LocalizedString")
If Err.Number = 0 Then
  sGarbage = oWSS.RegRead(sKey & "LocalizedStringBackup")
  If Err.Number <> 0 Then
    oWSS.RegWrite sKey & "LocalizedStringBackup", sTemp, "REG_EXPAND_SZ"
  End If
End If
oWSS.RegWrite sKey & "LocalizedString", "My Computer %COMPUTERNAME%", "REG_EXPAND_SZ"
Set oWSS = Nothing

0
 
LazarusCommented:
Not to imply that Jay Jay's doesnt' he just beat me to it.. LOL
0
 
Jay_Jay70Commented:
*grin* always keen for other script ideas, that ones just made the vault :)
0
 
dpahlmanAuthor Commented:
Thanks!!  I tried both they work great!  
0
 
dpahlmanAuthor Commented:
This was my first post.  I didnt' realize I couldn't accept more than one, my apologies JayJay70
0
 
Jay_Jay70Commented:
Thats ok mate, as long as you have a solution
0

Featured Post

Free learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

  • 4
  • 3
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now