使用.CSV导入将批量用户添加到Active Directory？

如何解决使用.CSV导入将批量用户添加到Active Directory？

| 您好，感谢您关注我的问题。 我是AD新手，需要帮助将大量用户导入AD。 这是我要导入的csv的链接；不用担心，这都是随机数据，并且没有存储任何个人信息。 http://www.mediafire.com/?s2j37lsps83o86s 谢谢！     

解决方法

更新 ： 使用PowerShell进行批量用户CSV导入：http://www.morgantechspace.com/2014/04/Create-Bulk-AD-Users-from-CSV-using-Powershell-Script.html VBScript：

\' CreateBulkADUsersFromCSVFile.vbs
\' Sample VBScript to create a AD Users from CSV file .
\' Author: http://www.morgantechspace.com/
\' ------------------------------------------------------\' 
Option Explicit 

\' Variables needed for LDAP connection 
Dim objRootLDAP 
Dim objContainer 

\' Variables needed for CSV File Information
Dim varFileName
Dim objFSO
Dim objFile

\' Holding variables for user information import from CSV file 
Dim varSamAccountName,varFirstName,varLastName
Dim newUserFields 

Dim objNewUser 
Dim varDomain 

Const ForReading = 1

\' Modify this name to match your company\'s AD domain 
varDomain=\"workdomain.local\" 

\' Create a connection to the Active Directory Users container. 
Set objRootLDAP = GetObject(\"LDAP://rootDSE\") 

\' You can give your own OU like LDAP://OU=TestOU instead of LDAP://cn=Users
Set objContainer = GetObject(\"LDAP://cn=Users,\" & objRootLDAP.Get(\"defaultNamingContext\")) 

\' Specify the csv file full path.
varFileName = \"C:\\Users\\Administrator\\Desktop\\NewUsers.csv\"

\' Open the file for reading.
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
Set objFile = objFSO.OpenTextFile(varFileName,ForReading)

\' Read the first line - csv columns -not needed for our proceess
objFile.ReadLine

\' Skip the error while creating new user...(i.e- user already exists)
on error resume next

\' Read the file and create new user.
Do Until objFile.AtEndOfStream
    \' Splits prioperty values.
    newUserFields = Split(objFile.ReadLine,\",\")
    varSamAccountName = newUserFields(0)
    varFirstName = newUserFields(1) 
    varLastName = newUserFields(2) 


\' Create new User account 
Set objNewUser = objContainer.Create(\"User\",\"cn=\"&varFirstName&\" \"&varLastName) 

objNewUser.put \"sAMAccountName\",lcase(varSamAccountName) 
objNewUser.put \"givenName\",varFirstName 
objNewUser.put \"sn\",varLastName 
objNewUser.put \"UserPrincipalName\",lcase(varSamAccountName)&\"@\"&varDomain 
objNewUser.put \"DisplayName\",varFirstName&\" \"&varLastName 
objNewUser.put \"name\",lcase(varSamAccountName) 
objNewUser.put \"description\",\"This user was created from csv file using vbscript\"

objNewUser.SetInfo 
objNewUser.Put \"pwdLastSet\",0 

\' Enable the user account 
objNewUser.AccountDisabled = FALSE
objNewUser.SetInfo 
Loop

MsgBox(\"Active Directory users created successfully from CSV file using VBScript.\")

WScript.Quit  

    ,您需要的是一个脚本/程序来自动处理此任务。刚进入并要求人们为您做您的工作是不满意的，因为此站点实际上是针对需要帮助的人。 理想情况下，您将使用您正在使用的代码发布问题，然后出问题了；不只是要求某人为您编写程序。 我怀疑如果您不更改问题，它将/应该删除。