vbs下用一个小方法实现批量添加域用户

复制代码 代码如下:
set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local")

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 &  "@hzcncter.local"
adsuser.setinfo
adsuser.setpassword strpass
adsuser.accountdisabled=false
adsuser.setinfo
loop

注意保存后，更改一下dc名称（红色字体），如果ou名称是英文，也可以连ou名称一起更改，这样就可以直接将用户建立到ou里面。

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！