set&nbs
p;adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local")
const forreading = 1
set objfso = createobject("scripting.file
Systemobject")
set objtextfile = objfso.o
PEntextfile _
("users.txt", forreading)
do until objtextfile.atendofstre
am strnextline = objtextfile.readline
arruserlist = spl
IT(strnextline , ",")
struser=arruserlist(0)
strpass=arruserlist(1)
set ad
SUSEr=adsou.create("user","cn=" & struser)
adsuser.put "samaccountname", struser
adsuser.put "user
PRincipalname", struser & "@hzcncter.local"
adsuser.setinfo
adsuser.setpassword strpass
adsuser.accountdisabled=false
adsuser.setinfo
loop
字体),如果ou名称是英文,也可以连ou名称一起更改,这样就可以直接将用户建立到ou里面。