在域模式下批量添加域用户就有些困难，下面是一个vbs脚本，在同级目录下用放置一个users.txt的文本文档，格式：username,password，在dc上运行该脚本，即可以将users.txt的用户信息批量添加到ad里面。可以通过移动或拖拽的方法，将生成的用户移动到ou下面，以保证ou的组策略及文件夹重定向对该用户生效。
vbs代码：
On Error Resume next
set adsou=GetObject("LDAP://cn=users,dc=contoso,dc=com")
const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objtextfile = objfso.opentextfile _
("users.txt", forreading)
do until objtextfile.atendofstream
strnextline = objtextfile.readline
arruserlist = split(strnextline , ",")
struser=arruserlist(0)
strpass=arruserlist(1)
set adsuser=adsou.create("user","cn=" & struser)
adsuser.put "samaccountname", struser
adsuser.put "userprincipalname", struser & "@contoso.com"
adsuser.setinfo
adsuser.setpassword strpass
adsuser.accountdisabled=false
loop