在Win2003中批量新增用户

 

用Csvde 批量新增用户

DN, objectClass, sAMAccountName, userPrincipalName, displayName, userAccountControl

"CN=jack,OU=gz,DC=yankee,DC=com",user,jack,[e-mail],514

"CN=tom,OU=gz,DC=yankee,DC=com",user,tom,[e-mail],514

"CN=jane,OU=gz,DC=yankee,DC=com",user,jane,[e-mail],514

"CN=john,OU=gz,DC=yankee,DC=com",user,john,[e-mail],514

保存为c:/user.txt

 

然后执行 csvde -I -f      c:/user.txt

缺点: 要手工输入用户信息, 不能输入密码,不能自动生成邮箱.

 

 

用ldifde批量新增用户

dn: CN=tom,OU=gz,DC=win,DC=com

changetype: add

cn: tom

objectClass: user

samAccountName: tom

givenName: tom

sn: tom

 

dn: CN=jack,OU=gz,DC=win,DC=com

changetype: add

cn: jack

objectClass: user

samAccountName: jack

givenName: jack

sn: jack

 

保存为c:/user.ldf    然后执行   ldifde   -I -f     c:/user.ldf 

此方法实质与csvde 命令是相同的。  

 

 

用Script批量新增用户

先生成一个txt文件，格式如下：                    

abc,test,test[abc]

bbb,jack,jack[bbb]

ccc,tom,tom[ccc]

'文件格式

'帐号,显示名称

'如：test,测试

'    zhenghai,曾海

保存为C:/usr.txt

 

然后写入以下代码：

'Set objOU = GetObject("LDAP://CN=Users,dc=etunion,dc=com")

Set objOU = GetObject("LDAP://OU=gz,DC=win,DC=com")

 

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile("user.txt", ForReading)

'文件格式

'帐号,显示名称

'如：test,测试

'    zhenghai,曾海

 

Do Until objTextFile.AtEndOfStream

    strNextLine = objTextFile.Readline

    arrList = Split(strNextLine, ",")

       

    Set objUser = objOU.Create("User", "cn=" & arrList(1))

    objUser.Put "sAMAccountName", arrList(0)

'objUser.Put "givenName", arrList(1)

'objUser.Put "initials", "E."

objUser.Put "sn", arrList(1)

   

    objUser.Put "DISPLAYName", arrList(2)

 

    'objUser.Put "description", "gz"

    objUser.SetInfo

 

    Set objUser = GetObject("LDAP://cn=" & arrList(1) & ",OU=gz,DC=win,DC=com")

    objUser.SetPassWord "pass&word123"

   

Loop

 

以上代码的功能：在win.com中的组织单位GZ中新增test, jack , tom 三个用户，初始密码为pass@word123

以上资料来源于http://www.microsoft.com