神剑山庄资源网 Design By www.hcban.com

复制代码 代码如下:
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,批量添加,域用户

神剑山庄资源网 Design By www.hcban.com
神剑山庄资源网 免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
神剑山庄资源网 Design By www.hcban.com

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

暂无vbs下用一个小方法实现批量添加域用户的评论...