vbs下用一个小方法实现批量添加域用户
摘要：复制代码代码如下:setadsou=getobject("ldap://cn=users,dc=hzcncter,dc=local")con...
复制代码 代码如下:
setadsou=getobject("ldap://cn=users,dc=hzcncter,dc=local")
constforreading=1
setobjfso=createobject("scripting.filesystemobject")
setobjtextfile=objfso.opentextfile_
("users.txt",forreading)
dountilobjtextfile.atendofstream
strnextline=objtextfile.readline
arruserlist=split(strnextline,",")
struser=arruserlist(0)
strpass=arruserlist(1)
setadsuser=adsou.create("user","cn="&struser)
adsuser.put"samaccountname",struser
adsuser.put"userprincipalname",struser&"@hzcncter.local"
adsuser.setinfo
adsuser.setpasswordstrpass
adsuser.accountdisabled=false
adsuser.setinfo
loop
注意保存后，更改一下dc名称（红色字体），如果ou名称是英文，也可以连ou名称一起更改，这样就可以直接将用户建立到ou里面。
【vbs下用一个小方法实现批量添加域用户】相关文章：
上一篇：
文件备份vbs脚本
下一篇：
用vbs实现本地添加用户的脚本