



Const JOIN_DOMAIN = 1
6 |+ q5 m# e; W2 q2 c9 v% yConst ACCT_CREATE = 2
Q9 E5 s, ?( i. T5 n' `, A& oConst ACCT_DELETE = 4
1 J/ |' _/ |# C3 K' JConst WIN9X_UPGRADE = 16* G% r( j9 z1 Z1 R# O3 ]
Const DOMAIN_JOIN_IF_JOINED = 32& d( u! U2 ]$ l6 S- {/ x8 k; M
Const JOIN_UNSECURE = 64
( `! e, s4 v6 V& _5 \! MConst MACHINE_PASSWORD_PASSED = 128
6 h% h" b% f3 PConst DEFERRED_SPN_SET = 2563 b! `! B+ D' W, i
Const INSTALL_INVOCATION = 2621445 j( O3 U+ r. T( _( b* B& K2 N
strDomain = "域名"2 r. t! u! _. g( X! G5 O) I
strPassword = "密码"7 x( P8 B, a o$ v0 f1 u }+ y
strUser = "用户名"# h) K' t1 [9 N. F1 C+ X) u, D
Set objNetwork = CreateObject("WScript.Network")
0 \$ T8 y+ j7 r. f- I0 bstrComputer = objNetwork.ComputerName; C2 Z; O+ K# z0 b1 x8 P; U
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
g1 Z) v8 D1 u( T/ D: V' F: o9 } strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
/ C9 V4 B9 H- S6 y5 \' x strComputer & "'") o/ _( z. I% _: W
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _8 W& h) ^0 v6 L
strPassword, _
7 ?2 [. M( N, M) y0 n strDomain & "\" & strUser, _
' Q# Y2 f$ l* v NULL, _) P0 M5 Y) \! |# D" f7 F
JOIN_DOMAIN + ACCT_CREATE)