能向ad指定ou添加大量用户的vb脚本源代码！！！

hancang

文件名: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个用户 修改修改10000个也没问题<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>
保存后 就可以直接运行!! 当然需要在域上面运行!!!!!<br>
<br>
再发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>