主页 / server / 问题 / 44928
Accepted
Jindrich
Asked: 2009-07-24 17:01:09 +0800 CST

如何重命名域中的多台计算机

  • 772

我继承了这个愚蠢的命名约定：

COMPANYNAME-CITY20090724或COMPANYNAME-CITY-JOHN

它没有告诉我有关位置（楼层，部门）的任何信息。约翰几个月前离开了公司。一个城市的电脑搬到了另一个城市，但名字没有改变。

当您想创建新的命名约定时，如何重命名 100 多台计算机？

windows-vista windows-xp active-directory

4 个回答

  1. Best Answer

    肯定的事。在这种情况下，NETDOM 实用程序是“你的朋友”。您可以使用启动脚本重命名计算机。

    NETDOM 上的一些文档在这里：

    我可以看到这样一个非常简单的脚本：

    @echo off
IF "%COMPUTERNAME%"=="COMPANYNAME-CITY-JOHN" SET NEWNAME=NEWNAME-HERE
IF "%COMPUTERNAME%"=="COMPANYNAME-CITY-BOB" SET NEWNAME=NEWNAME-HERE2
... more machines ...
IF NOT "%NEWNAME%"=="" NETDOM renamecomputer member /newname:%NEWNAME% /userd:USER-TO-PERFORM-RENAME-UNDER /password:PASSWORD-FOR-THAT-USER

    重命名所有计算机后，您可以删除启动脚本。在已经重命名的计算机上运行它不应该太“昂贵”。如果您担心这一点，您可以使用“trapdoor”技术，即脚本以计算机将自己置于一个被拒绝执行脚本的权限的组中结束。

    • 在 AD 中创建一个组——说“计算机重命名完成”。
    • 修改组的权限以包括“域计算机 - 写入/将自己添加为成员”
    • 在上面的简单批处理文件脚本中，在末尾添加以下行：
    IF NOT "%NEWNAME%"=="" NET GROUP "用户创建脚本完成" /DOMAIN /ADD %COMPUTERNAME%$

    当它在每台机器上运行时，您会看到该组“增长”了成员计算机。要停止脚本在已经运行的计算机上运行，​​请向 GPO 添加一个权限，该权限分配启动脚本“计算机重命名完成 - 拒绝应用组策略”。然后脚本将在每台机器上运行一次。

    你的目的地名称是什么？如果您像我一样喜欢戴尔服务编号，您可以执行以下操作（在 VBScript 中）：

    Option Explicit
Dim objWMIService, strNewName, objShell, objNetwork
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")

' Obtain the service tag
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
For Each objSMBIOS in objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure")
    strNewName = objSMBIOS.SerialNumber 
Next

' Check for empty string
If (strNewName = "") Then WScript.Quit

' Does the computer need to be renamed?
If (UCase(strNewName) <> UCase(objNetwork.ComputerName)) Then    
     objShell.Run "NETDOM renamecomputer member /newname:" & strNewName & " /userd:USER-TO-PERFORM-RENAME-UNDER /password:PASSWORD-FOR-THAT-USER"
End If

    该脚本可以一直运行，并且会不断地重命名未根据服务标签命名的计算机......呵呵。（我不确定我是否真的会这样做，如果我这样做了，我会在脚本中进行更多的理智检查。）

    • 5

  2. 您可以通过 PowerShell 执行此操作。在 Excel 中，制作一个包含两列的文件，一列用于旧名称，一列用于新名称。添加标题行 oldname 和 newname。将其保存为 CSV (mylist.csv)，然后在 powershell 中运行：

    function renameAndReboot([string]$computer, [string]$newname)
{
        $comp = gwmi win32_computersystem  -computer $computer
        $os   = gwmi win32_operatingsystem -computer $computer

        $comp.Rename($newname)
        $os.Reboot()
}

Import-Csv mylist.csv

foreach ($entry in $list)
{
    renameAndReboot($entry.oldname,$entry.newname)
}

    ...核心代码来自这里。

    • 2

  3. 一个城市的电脑搬到了另一个城市，但名字没有改变。

    这是试图描述位置、所有者、功能等的命名方案的弱点。事情会发生变化。因此，您最终要么经常重命名计算机（并且每次都重新启动！），要么拥有一个随着时间的推移而失修的命名方案。

    我可以建议描述字段吗？ 替代文字 http://lh3.ggpht.com/BryanLockwood/SKbN8OdozVI/AAAAAAAAAVU/C3ZeLX0_wGc/%5C%5Ccojones.org%5Cfiles%5Cusers%5Cbryan%5CDesktop%5CComputerDescription.PNG?imgmax=512

    您可以轻松列出计算机及其描述： 替代文本 http://lh6.ggpht.com/BryanLockwood/SKbN8HBTywI/AAAAAAAAAAAVc/vu65Fm4R5aM/%5C%5Ccojones.org%5Cfiles%5Cusers%5Cbryan%5CDesktop%5Ccmd-example-descriptions。 PNG?imgmax=512

    更多关于这在我的博客。

    • 0

  4. 如果您不熟悉 Netdom 命令行工具，请尝试使用来自colosify的Netdom 重命名计算机 GUI。

    它将帮助您通过上传 .csv 文件来重命名域中的多台计算机，而无需记住或学习任何命令行代码或创建任何脚本。

    这个 GUI 为我节省了很多时间。

    • 0

相关问题