邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: [原创]能向ad指定ou添加大批用户的vb源代码！！！ [打印本页]

作者: hayes 时间: 2004-9-21 23:50
标题: [原创]能向ad指定ou添加大批用户的vb源代码！！！
还有一个数据库一些dll ocx 文件太大没法上传 
<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>

作者: 钉子 时间: 2004-9-22 00:15
标题: re:谢谢分享，请发邮件到我的邮箱，我来发布到...
谢谢分享，请发邮件到我的邮箱，我来发布到下载区，cndgm#163.com

作者: fantomas 时间: 2004-9-23 09:08
标题: re:少了mdb文件？怎么回事？
少了mdb文件？怎么回事？

作者: hayes 时间: 2004-9-23 10:15
标题: re:用户信息以及ou，dc信息都在ACCES...
用户信息以及ou，dc信息都在ACCESS数据库中，千万不要改动字段名。可以先用MS EXCEL按照数据库的字段将列表处理好，然后使用ACCESS的数据倒入功能即可。附件是数据库文件 
<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>

作者: heigui405 时间: 2004-9-27 09:35
标题: re:能说具体点吗，上面的高手，怎么弄呀？我很...
能说具体点吗，上面的高手，怎么弄呀？我很想知道呀

作者: lijunming 时间: 2004-9-27 11:33
标题: re:要安装VB的！！！把上边提到的两个文件放...
要安装VB的！！！把上边提到的两个文件放在一个文件夹

作者: going 时间: 2005-3-7 15:14
标题: [原创]能向ad指定ou添加大*用户的vb源代码！！！
可否提供一下，具體的使用方法呀？？？

作者: 85501188 时间: 2005-3-8 10:48
标题: [原创]能向ad指定ou添加大*用户的vb源代码！！！
谢谢分享，保存了

作者: hancang 时间: 2005-3-11 15:02
标题: [原创]能向ad指定ou添加大*用户的vb源代码！！！
不知道你写的什么玩意太麻烦!! 直接可以使用VB脚本来导入AD用户! 
 
addou.vbs 把下面的文档保存为VBS扩展名的文件! 这个是添加OU 
Set objDomain = GetObject("LDAP://dc=yinhe,dc=com") 
Set objOU = objDomain.Create("organizationalUnit", "ou=mcse") 
objOU.SetInfo 
 
adduser.vbs 这个是添加10个用户 
Set objContainer=GetObject("LDAP://ou=mcse,dc=yinhe,dc=com") 
For i=1 to 10 
Set objUser=objContainer.Create("User","cn=UserNo"&i) 
objUser.Put "sAMAccountName","UserNo"&i 
objUser.SetInfo 
objUser.SetPassword "123" 
objUser.AccountDisabled=FALSE 
objUser.SetInfo 
Next 
WScript.Echo "10 users have been created!" 
相应的改变ou的名称和域的名称!! 
保存后就可以直接运行!! 当然需要在域上面运行!!!!!

作者: hancang 时间: 2005-3-11 15:06
标题: [原创]能向ad指定ou添加大*用户的vb源代码！！！
再发1个你们领悟领悟吧!! 要不就实验实验!! 相应的改变域名和OU名! 
Set objDomain = GetObject("LDAP://dc=yinhe,dc=com") 
Set objOU = objDomain.Create("organizationalUnit", "ou=mcse") 
objOU.SetInfo 
 
Set objOU = GetObject("LDAP://OU=mcse,dc=yinhe,dc=com") 
Set objUser = objOU.Create("User", "cn= hancang") 
objUser.Put "sAMAccountName", "hancang" 
objUser.SetInfo 
objUser.SetPassword “123456" 
objUser.AccountDisabled = FALSE 
objUser.SetInfo 
 
Set objOU = GetObject("LDAP://OU=mcse,dc=yinhe,dc=com") 
Set objGroup = objOU.Create("Group", "cn=atl-users") 
objGroup.Put "sAMAccountName", "atl-users" 
objGroup.SetInfo 
objGroup.Add objUser.ADSPath 
objGroup.SetInfo 
 
Wscript.echo "Script ended successfully"

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)