'

* Start Script

'

***********************

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 = 

"

ex10.intra

"

'

domain需更改为自己域的名称

strPassword = 

"

Password@2

"

'

有domain admins组权限的用户及密码

strUser = 

"

user01

"

Set objNetwork = 

CreateObject(

"

WScript.Network

")

strComputer = objNetwork.ComputerName

Set objComputer = 

GetObject(

"

winmgmts:{impersonationLevel=Impersonate}!\\

" & _

strComputer & 

"

\root\cimv2:Win32_ComputerSystem.Name='

" & _

strComputer & 

"

'

")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _

strPassword, strDomain & 

"

\

" & strUser, 

NULL, _

JOIN_DOMAIN + ACCT_CREATE)

wscript.echo 

"

The command completed successfully.

"

wscript.echo 

"

Pls. Reset Your Computer!

"

'

*****************

'

* End Script

'

*****************