locked
如何變更已加入網域之電腦的名稱? RRS feed

  • 問題

  • 請教 各位先進朋友,

    請教要如何變更已加入網域之電腦名稱?
    是這樣的, 之前我尚未管理公司AD之前, 電腦名稱
    未做好記錄與管理, 最近碰到許多電腦因電腦名稱重複問題。
    是否可以使用VB Script來進行變更?如果可以, 是否有topic可以參考?

    另外, 想再請教當某台電腦因使用者出差或是請假
    以致許久未開機, 預設DC會在多久將該電腦帳號踢除?
    那麼要延長時間要在哪邊設定? 感謝各位...

    2007年12月14日 上午 12:44

解答

  • 我猜你公司的電腦不只有電腦名稱重複的問題

    可能還有SID重複的狀況發生

    尤其是很多台電腦早期都用Ghost複製產生時,更容易發生

    建議你用NewSID工具更名並且更新SID

    然後再將電腦加入網域一次

    2007年12月14日 上午 02:04
  • 您好

          在這裡還是建議您從SID的問題處理對您日後的管理會有很大的幫助,關於您所需要的script請參考下面範例:

    重新命名電腦與電腦帳戶

     

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colComputers = objWMIService.ExecQuery _
        ("Select * from Win32_ComputerSystem")
    For Each objComputer in colComputers
        err = ObjComputer.Rename("WebServer")
        Wscript.Echo err
    Next

    參考網址:http://www.microsoft.com/taiwan/technet/community/scriptcenter/compmgmt/scrcm36.mspx

    2007年12月19日 上午 10:12

所有回覆

  • 我猜你公司的電腦不只有電腦名稱重複的問題

    可能還有SID重複的狀況發生

    尤其是很多台電腦早期都用Ghost複製產生時,更容易發生

    建議你用NewSID工具更名並且更新SID

    然後再將電腦加入網域一次

    2007年12月14日 上午 02:04
  •  AskaSu 寫信:

    我猜你公司的電腦不只有電腦名稱重複的問題

    可能還有SID重複的狀況發生

    尤其是很多台電腦早期都用Ghost複製產生時,更容易發生

    建議你用NewSID工具更名並且更新SID

    然後再將電腦加入網域一次

     

     

    Dear AskaSu 您好,

     

         是的, 誠如您所說的, 我們公司之前是使用Ghost的方是來大量部署WinXP,

    而大量授權方案也是今年才買的, 在我到職以來到現在, 每個IT人員都有自己部署的方式,

    我當初有說過要用Sysprep來做Ghost部署, 但是始終沒有交集, 因為大家認為

    又不是常發生, 就算發生了重新加入網域就好了(能用就好), 就連最基本的電腦名稱也沒有管理好,

    使得我管起DC格外辛苦...

     

        所以希望能在這邊請教到如何在不退出網域的情況下, 使用像是VB Script來

    為Client進行電腦名稱變更動作, 謝謝您!

    2007年12月19日 上午 05:23
  • 您好

          在這裡還是建議您從SID的問題處理對您日後的管理會有很大的幫助,關於您所需要的script請參考下面範例:

    重新命名電腦與電腦帳戶

     

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colComputers = objWMIService.ExecQuery _
        ("Select * from Win32_ComputerSystem")
    For Each objComputer in colComputers
        err = ObjComputer.Rename("WebServer")
        Wscript.Echo err
    Next

    參考網址:http://www.microsoft.com/taiwan/technet/community/scriptcenter/compmgmt/scrcm36.mspx

    2007年12月19日 上午 10:12