快速添加200个AD帐户和Exchange邮箱的方法？

用于创build用户帐户的VBScript和ADSI。 使用这样的事情开始：

Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & objRootDSE.Get("defaultNamingContext")) For i = 1 To 1000 Set objLeaf = objContainer.Create("User", "cn=UserNo" & i) objLeaf.Put "sAMAccountName", "UserNo" & i objLeaf.SetInfo Next WScript.Echo "1000 Users created." 

从这里 。

微软Technet脚本中心也有大量的示例脚本，可以满足你想要做的任何事情，并且是一个很好的资源。

对于邮箱，我不会打扰脚本; 只需在同一个OU中创build所有的用户，然后在ADU＆C中对它们进行块select，右键单击，然后执行“Exchange Tasks”（Exchange任务）的事情 – 更快，更不容易出错。

如果你不想使用VBScript，你也可以使用dsadd。 我有一个batch file，每年导入所有新用户：

（可能有更好的方法来显示，但我还没有喝咖啡。）

 for /F "tokens=1,2,3,4 delims=," %%i in (freshmen09.csv) do dsadd user "cn=%%j %%i,ou=2013,ou=students,dc=[domain],dc=org" -samid %%k -pwd "%%l" -upn %%k@[domain].org -fn "%%j" -ln "%%i" -display "%%j %%i" -memberof "cn=GL 2013,ou=2013,ou=students,dc=[domain],dc=org" -disabled no -mustchpwd yes -hmdrv U: -hmdir "\\[network home directory]\2013\%%k" 

这从CSV文件中取4列：姓，名，用户名，密码

• 它为文件中的每一行创build一个用户，
• 把他们放到所需的OU中，
• 设置密码，
• 将它们添加为一个组的成员，
• 强制用户首次login时必须更改密码，
• 将主目录设置为我们networking共享上的相应位置。

我试图得到这个自动创build电子邮件地址，但我有不一致的结果。 通常我必须按照build议的方式来做，只需在ADU＆C中select全部，然后从那里设置Exchange邮箱。 非常简单，而且比DSADD更容易。

DSADD也有许多其他的参数。 你基本上可以设置你想要的任何用户属性。 简单，简单，快速。

一个失败：用户名冲突需要手动处理。 我们偶尔会有像詹姆斯史密斯和乔纳森史密斯这样的学生。 如果你有一套系统来提前防止碰撞，那就完美了。 如果不是，我build议将bat文件的输出redirect到一个文本文件，然后在结果中search“Fail”。

 freshmen09.bat > freshmen09_output.txt 

（有可能有更好的方法来做这个部分…）

VBScript就是这样。

使用VBScript和ADSI，您可以自动执行大部分这些任务。

几个链接让你开始：

在AD中创build用户还有更多

脚本交换

玩的开心！