使用.CSV導入將批量用戶添加到Active Directory？

Question

你好，謝謝你看我的問題。

我是AD新手，需要幫助將批量用戶導入AD。

這是我想導入的csv的鏈接;別擔心，這是所有隨機數據，並且沒有個人信息存儲。

http://www.mediafire.com/?s2j37lsps83o86s

謝謝！

Answer 1

你所要求的是一個以自動方式處理這個任務的腳本/程序。只是進來請求人們爲你做你的工作，因爲這個網站真的專注於那些需要幫助的人，他們正在做的事情。

理想情況下，您可以將您的問題與您正在使用的代碼一起發佈，以及發生了什麼問題;不只是要求某人爲你寫一個程序。

我懷疑如果你不改變這個問題，它會/應該被刪除。

Answer 2

更新時間：

批量用戶CSV導入使用PowerShell：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