把如下代碼存成joinDomain.vbs, 然后雙擊運(yùn)行它. 解釋: 建立一個域用戶帳號. 然后把DomainNameHere, PasswordHere, DomainAccountHere改成你

把如下代碼存成joinDomain.vbs, 然后雙擊運(yùn)行它.

解釋: 建立一個域用戶帳號. 然后把DomainNameHere, PasswordHere, DomainAccountHere改成你的域名, 域用戶密碼, 域用戶名. 在默認(rèn)情況下, 普通域用戶帳號只能加電腦到域十次, 而域管理員則不受限制. 如下代碼我在XP下用域管理員帳號調(diào)試成功.


Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
strDomain = "DomainNameHere"
strPassword = "PasswordHere"
strUser = "DomainAccountHere"
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!" & strComputer & "rootcimv2:Win32_ComputerSystem.Name='" & strComputer & "'") ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & "" & strUser, NULL, JOIN_DOMAIN ACCT_CREATE) wscript.echo strComputer & " has been joined to domain:" & strDomain & ". You will neet to restart your PC to take effect."


要指出的是電腦未加入域時, 你是無法用域的組策略來使其運(yùn)行腳本.













域環(huán)境內(nèi)有大量客戶機(jī)需要加入域的時候，一臺一臺的通過更改電腦屬性那種方式加入域，是很麻煩的。這里提供一段加入域的代碼只要在客戶機(jī)運(yùn)行，就可以加入域了，雖然還要一臺臺運(yùn)行，但是一定程度上提高了工作效率。ps：雙擊運(yùn)行后，并不會像以前那種方式加入域后提示重啟。而是需要手動重啟后，方可看到效果。

代碼如下：

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain = "XXX" 注：這里添的是域名，可謂netbios或者域名
strPassword = "XXX" 注：這里添的是具有加入域權(quán)限的帳戶的密碼
strUser = "XXX" 注：這里添的是具有加入域權(quán)限的帳戶
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!" & _
strComputer & "rootcimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, _
strDomain & "" & strUser, _
NULL, _
JOIN_DOMAIN ACCT_CREATE)

wscript.echo "計算機(jī)加入域完成！按確定后重新啟動電腦！"
set