加入域脚本

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 = "test.com.cn" '域名
strPassword = "password"   '密码
strUser = "user" '用户名
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & strComputer & "/root/cimv2:Win32_ComputerSystem.Name='" & strComputer & "'")
Set S = WScript.CreateObject("wscript.shell")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & "/" & strUser, NULL, JOIN_DOMAIN + ACCT_CREATE)
str1= MsgBox ("已经成功加入taihe.com.cn域!请重新启动您的计算机!" & vbCrlf & "是否立即重新启动计算机" , vbOKCancel, "谢谢")
If Str1 = vbOK Then
S.run "Shutdown.exe -r -t 0", 0
End If
Wscript.Quit