快速修改電腦名稱之方法

相信有很多IT人會遇到電腦名稱的命名問題，怎樣的命名方式，就看公司怎麼規定吧！ 因為有遇到更改電腦名稱的問題，所以就搜尋出幾個快速更改的方式。

1. VBS 指令修改( http://social.technet.microsoft.com/forums/zh-TW/winserverzhcht/thread/6e40c437-8697-4387-8f78-b0189237ef6f/)

將以下語法剪下貼到記事本裡，另存成.vbs 檔案, 使用滑鼠去點擊兩下即可。

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(" 要更改的電腦名稱")
Next

2. NETDOM 指令修改方式( http://support.microsoft.com/kb/298593/zh-tw)
下載位置(http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=18546)

netdom renamecomputer 舊電腦名稱 /newname:新電腦名稱 /userd:網域/管理者帳號 /passwordd:管理者密碼 /force /reboot:60

範列:

netdom renamecomputer alex-nb /newname:mary-nb /userd:abc.com/administraotr /passwordd:123456 /force /reboot:60

                /force 是不詢問直接更改名稱

          /reboot 是多少秒後重新開機

以上兩種方式我都使用過，第一種比較簡單，但失敗率蠻高的，不知道有什麼地方有限制，第二種的方式雖然比較麻煩，但很容易就成功了，搭配.cmd 的方式使用，可以達到無提示訊息。

將下列存成.cmd 點擊完後即更名不提供也不重新開機

netdom renamecomputer alex-nb /newname:mary-nb /userd:abc.com/administraotr /passwordd:123456 /force /reboot:60

shutdown -a