[原创]能向ad指定ou添加大批用户的vb源代码！！！

hayes

还有一个数据库 一些dll ocx 文件 太大没法上传<br>
<IMG onmouseover="javascript:if(this.width>520)this.width=520;" src="../leadbbsfile/fileType/rar.gif" onload="javascript:if(this.width>520)this.width=520;" align=absmiddle border=0>此主题相关文件 <A HREF="../leadbbsfile/upload/2004/09/21/235217.rar" TARGET=_blank>235217.rar</A><br>

钉子

谢谢分享，请发邮件到我的邮箱，我来发布到下载区，cndgm#163.com

fantomas

少了mdb文件？怎么回事？

hayes

用户信息以及ou，dc信息都在ACCESS数据库中，千万不要改动字段名。可以先用MS EXCEL按照数据库的字段将列表处理好，然后使用ACCESS的数据倒入功能即可。附件是数据库文件<br>
<IMG onmouseover="javascript:if(this.width>520)this.width=520;" src="../leadbbsfile/fileType/rar.gif" onload="javascript:if(this.width>520)this.width=520;" align=absmiddle border=0>此主题相关文件 <A HREF="../leadbbsfile/upload/2004/09/23/101518.rar" TARGET=_blank>101518.rar</A><br>

heigui405

能说具体点吗，上面的高手，怎么弄呀？我很想知道呀

lijunming

要安装VB的！！！把上边提到的两个文件放在一个文件夹

going

可否提供一下，具體的使用方法呀？？？

85501188

谢谢分享，保存了

hancang

不知道你写的什么玩意 太麻烦!! 直接可以使用VB脚本来导入AD用户!<br>
<br>
addou.vbs 把下面的文档保存为VBS扩展名的文件! 这个是添加OU<br>
Set objDomain = GetObject("LDAP://dc=yinhe,dc=com")<br>
Set objOU = objDomain.Create("organizationalUnit", "ou=mcse")<br>
objOU.SetInfo <br>
<br>
adduser.vbs 这个是添加10个用户<br>
Set objContainer=GetObject("LDAP://ou=mcse,dc=yinhe,dc=com")<br>
For i=1 to 10<br>
Set objUser=objContainer.Create("User","cn=UserNo"&i)<br>
objUser.Put "sAMAccountName","UserNo"&i<br>
objUser.SetInfo<br>
objUser.SetPassword "123"<br>
objUser.AccountDisabled=FALSE<br>
objUser.SetInfo<br>
Next<br>
WScript.Echo "10 users have been created!"<br>
相应的改变ou的名称和域的名称!!<br>
保存后 就可以直接运行!! 当然需要在域上面运行!!!!!

hancang

再发1个 你们领悟领悟吧!! 要不就实验实验!! 相应的改变域名和OU名!<br>
Set objDomain = GetObject("LDAP://dc=yinhe,dc=com")<br>
Set objOU = objDomain.Create("organizationalUnit", "ou=mcse")<br>
objOU.SetInfo<br>
<br>
Set objOU = GetObject("LDAP://OU=mcse,dc=yinhe,dc=com")<br>
Set objUser = objOU.Create("User", "cn= hancang")<br>
objUser.Put "sAMAccountName", "hancang"<br>
objUser.SetInfo<br>
objUser.SetPassword “123456" <br>
objUser.AccountDisabled = FALSE<br>
objUser.SetInfo<br>
<br>
Set objOU = GetObject("LDAP://OU=mcse,dc=yinhe,dc=com")<br>
Set objGroup = objOU.Create("Group", "cn=atl-users")<br>
objGroup.Put "sAMAccountName", "atl-users"<br>
objGroup.SetInfo<br>
objGroup.Add objUser.ADSPath <br>
objGroup.SetInfo<br>
<br>
Wscript.echo "Script ended successfully"<br>