[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1553
  • 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
The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

 
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

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

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