Skip to main content

How to enter multiple users into ActiveDirectory 2008 from a CSV

To create multiple users into ActiveDirectory 2008 Server from one single CSV file containing the users login information, you can use the following wsf file:

   1: <job id="main">
   2:  
   3:     <script language="VBScript">
   4:         dim text_out
   5:         text_out = ""
   6:         Dim oContainer 'Parent container of new   user 
   7:         Dim oUser 'Created user
   8:         'Get parentcontainer
   9:         Set oContainer=GetObject("LDAP://OU=yourouname, DC=your,DC=domain,DC=local")
  10:         'Read the file with user information
  11:         Const ForReading = 1
  12:         Set objFSO = CreateObject("Scripting.FileSystemObject")
  13:         Set objTextFile = objFSO.OpenTextFile _
  14:         ("users.txt", ForReading)
  15:         Do Until objTextFile.AtEndOfStream
  16:             strNextLine = objTextFile.Readline
  17:             user_info = Split(strNextLine , ",") 'split comma-delimited line
  18:             username = LCase(Left(user_info(0),1) & user_info(1))
  19:             'Create user
  20:             Set oUser = oContainer.Create("User","CN=" & user_info(0) & " " & user_info(1) )
  21:             'Assign properties values to user
  22:             oUser.Put "samAccountName",username
  23:             oUser.Put "givenName",user_info(0)
  24:             oUser.Put "sn",user_info(1)
  25:             oUser.Put "userPrincipalName",username & "@your.domain.local"
  26:             oUser.IsAccountLocked = False
  27:             oUser.SetPassword user_info(2)
  28:             oUser.SetInfo
  29:             'Clean up
  30:             Set oUser = Nothing
  31:             
  32:         Loop 
Set oContainer = Nothing
  33:         WScript.Echo "Finished"
  34:     </script>
  35: </job>

You CSV file (users.txt) must be located in the same folder where the script is and its contents must be in the following format (no headers):

  First Name, Last Name, Password

 

The script will use the first name and last name to create a username. It will take the first letter of the first name and the complete last name, for example: jsmith.

You will need to replace yourdomain in the script with the name of your Windows Domain. Also you need to change “yourouname” in the script to the name of the organizational unit that will hold your new users.

The code is under the MIT license.

Comments

Post a Comment

Popular posts from this blog

Powershell script for converting JPG to TIFF

The following Powershell script will convert a batch of JPEG files to TIFF format: #This Code is released under MIT license [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") $files_folder = 'C:\path-where-your-jpg-files-are\' $pdfs = get-childitem $files_folder -recurse | where {$_.Extension -match "jpg"} foreach($pdf in $pdfs) { $picture = [System.Drawing.Bitmap]::FromFile( $pdf.FullName ) $tiff = $pdf.FullName.replace('.PDF','').replace('.pdf','').replace('.jpg','').replace('.JPG','') + '.tiff' $picture.Save($tiff) }
Post a Comment
Read more

Power Automate: SFTP action "Test connection failed"

When I added an SFTP create file action to my Power Automate flow ( https://flow.microsoft.com ) , I got the following error in the action step, within the designer: "Test connection failed" To troubleshoot the Power Automate connection, I had to: go the Power Automate portal then "Data"->"Connections"  the sftp connection was there, I clicked on the ellipsis, and entered the connection info It turns out, that screen provides more details about the connection error. In my case, it was complaining that "SSH host key finger-print xxx format is not supported. It must be in 'MD5' format". I had provided the sha fingerprint that WinScp shows. Instead, I needed to use the MD5 version of the fingerprint. To get that, I had to run in command line (I was in a folder that had openssh in it): ssh -o FingerprintHash=md5 mysftpsite.com To get the fingerprint in MD5 format. I took the string (without the "MD5:" part of the string) and put
Post a Comment
Read more

Alert if file missing using Powershell

The following Powershell script can be used to send an email alert when a file is missing from a folder or it is the same file from a previous check: $path_mask = "yourfile_*.txt" $previous_file_store = "lastfileread.txt" $script_name = "File Check" ###### Functions ########## Function EMailLog($subject, $message) {    $emailTo = "juanito@yourserver.com"    $emailFrom = "alert@yourserver.com"    $smtpserver="smtp.yourserver.com"       $smtp=new-object Net.Mail.SmtpClient($smtpServer)    $smtp.Send($emailFrom, $emailTo, $subject, $message) } Try {    #get files that match the mask    $curr_file = dir $path_mask |  select name    if ($curr_file.count -gt 0)    {        #file found        #check if the file is different from the previous file read        $previous_file = Get-Content $previous_file_store        $curr_file_name = $curr_file.Item(0).Name        if ($
Post a Comment
Read more