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

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

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


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













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

代碼如下：

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ì)算機(jī)加入域完成！按確定后重新啟動(dòng)電腦！"
set