2_create_users_montreal-ou (direction).vbs

' 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://ou=direction,ou=montreal-ou,ou=educ-plusinc," & objRootLDAP.Get("defaultNamingContext"))

' Specify the csv file full path.
varFileName = ".\2_list_Users_direction.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