vbs中怎么实现批量添加域用户

这篇文章主要为大家展示了"vbs中怎么实现批量添加域用户"，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下"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里面。

以上是"vbs中怎么实现批量添加域用户"这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注行业资讯频道！