在一些大规模进行域部署时，都会遇到如何快速的将用户计算机加入到域中。

以下为一个可以现实将计算机自动加入域的.vbs脚本。

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 = "bjstone.com" -------您的域名strPassword = "123.com"  --------加入域的域管理员密码

strUser = "administrator"  ---------加入域的域管理员账号

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!"红色字内容不参与真正使用此脚本。

本文转自 

 51CTO博客，原文链接： http://blog.51cto.com/virtualtop/330381，如需转载请自行联系原作者