批量创建用户脚本

' 第一步，建立一个TEMP的OU

Set objDomain = GetObject("")
Set objOU = objDomain.Create("organizationalUnit", "ou=temp")
objOU.SetInfo

'第二步，/*用Excel建立一个工表然后存为*.cvs格式文件，格式如下。
'arrServiceList(0),arrServiceList(1),arrServiceList(2),arrServiceList(3),arrServiceList(4),arrServiceList(5),arrServiceList(6),arrServiceList(7),arrServiceList(8),arrServiceList(9),arrServiceList(10)
'cn,sn,givenName,displayName,userPrincipalName,userPassword,telephoneNumber,mobile,mail,ou,title
'*/

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\useradd.csv", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")

'/*这一段实现的功能就是让脚本打开C盘下的名为useradd.csv的文件，然后逐行读取数据，把每一行里用“,”分隔的数据分别放到数组arrServicelist里，每一行的第一个数据用arrServicelist(0)表示,第二个用arrServicelist(1)，以此类推。。。然后设置一个循环(do Until...Loop)使do Until和loop中间的代码重复执行，直到读完useradd.csv的最后一行，结束循环。*/

 

strContainer = "ou="&arrServiceList(9)
Set objRootDSE = GetObject("")
Set objContainer = GetObject("LDAP://" & strContainer & "," & _
objRootDSE.Get("defaultNamingContext"))

'第三步，/*连接到活动目录数据库中OU下*/

Set objUser = objContainer.Create("user", "cn=" & arrServiceList(0))
objUser.Put "sAMAccountName", arrServiceList(0)
objUser.SetInfo
objUser.Put "sn", arrServiceList(1)
objUser.SetInfo
objUser.Put "givenName", arrServiceList(2)
objUser.SetInfo
objUser.Put "displayName", arrServiceList(3)
objUser.SetInfo
objUser.Put "userPrincipalName", arrServiceList(4)
objUser.SetInfo
objUser.Put "userPassword", arrServiceList(5)
objUser.SetInfo
objUser.Put "telephoneNumber", arrServiceList(6)
objUser.SetInfo
objUser.Put "mobile", arrServiceList(7)
objUser.SetInfo
objUser.Put "mail", arrServiceList(8)
objUser.SetInfo

'第四步，分别设置员工的姓名，姓氏，名字，显示姓称，登陆主名，用户密码，办公电话，移动电话，电子邮件与数组中元素的对应关系，这里只是示例，更多的属性设置信息可以通过adsiedit.msc查看用户的相关属性后自行添加。“objUser.SetInfo”这一行是对像的属性修改后的保存语句，可以修改一条属性保存一次，也可以全部做完再保存，，，当然明智的做法是。。。你知道的啦!!!*/

 

Loop

'至于CVS文件内"userPrincipaName"，"givenName"，"sn"，"sAMAccountName"这些字段，可以安装Windows Support tools ，然后运行 adsiedit.msc 可以看到如下图所示: