在Win2003中批量新增用户 - 编程吧

上一篇 | 下一篇

在Win2003中批量新增用户

发布: 2008-3-29 11:05 | 作者: admin | 来源: | 查看: 18次

在Win2003中批量新增用户

 
用Csvde 批量新增用户
DN, objectClass, sAMAccountName, userPrincipalName, displayName, userAccountControl
"CN=jack,OU=gz,DC=yankee,DC=com",user,jack,jack@yankee.com,514
"CN=tom,OU=gz,DC=yankee,DC=com",user,tom,tom@yankee.com,514
"CN=jane,OU=gz,DC=yankee,DC=com",user,jane,jane@yankee.com,514
"CN=john,OU=gz,DC=yankee,DC=com",user,john,john@yankee.com,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",

 

字号: | 推荐给好友

 

评分:0

我来说两句

seccode