#Credit for original script to Helge Klein https://helgeklein.com.
#Adapted to allow higher numbers of users with the same information set.

# Summary of changes.
# Reduced Male and Female names into one list for ease of expansion
# Changed Displayname code to create each combination of names possible
# Changed sAMAccountname generation to add unique account ID with orgShortName as suffix.

# Derek Souter - 20/12/2017
# Updated to ensure that both firstnames and lastnames are created randomly
# Added list of OUs, and ensured that users are created randomly within those OUs
# this version was tested to create 250000 users in 11 different OUs

# Known issues
# Usercount (For me anyway) seems to be inaccurate when import completes. May be related to errorcheck compensation when usercount is reduced. Consistently seem to get many more users that intended.


Set-StrictMode -Version 2

Import-Module ActiveDirectory

write-host "import AD"

# Set the working directory to the script's directory
Push-Location (Split-Path ($MyInvocation.MyCommand.Path))

#
# Global variables
#
# User properties
$ou = "OU=User Accounts,OU=Accounts,DC=domain,DC=uk"         # Which OU to use as the root to create the users in.   
$initialPassword = "Password1"               # Initial password set for the user
$orgShortName = "TEST"                         # This is used to build a user's sAMAccountName
$dnsDomain = "TEST.DOMAIN"                      # Domain is used for e-mail address and UPN
$company = "Sandbox environment"                           # Used for the user object's company attribute
$departments = (                             # Departments and associated job titles to assign to the users
                  @{"Name" = "Finance & Accounting"; Positions = ("Manager", "Accountant", "Data Entry")},
                  @{"Name" = "Human Resources"; Positions = ("Manager", "Administrator", "Officer", "Coordinator")},
                  @{"Name" = "Sales"; Positions = ("Manager", "Representative", "Consultant")},
                  @{"Name" = "Marketing"; Positions = ("Manager", "Coordinator", "Assistant", "Specialist")},
                  @{"Name" = "Engineering"; Positions = ("Manager", "Engineer", "Scientist")},
                  @{"Name" = "Consulting"; Positions = ("Manager", "Consultant")},
                  @{"Name" = "IT"; Positions = ("Manager", "Engineer", "Technician")},
                  @{"Name" = "Planning"; Positions = ("Manager", "Engineer")},
                  @{"Name" = "Contracts"; Positions = ("Manager", "Coordinator", "Clerk")},
                  @{"Name" = "Purchasing"; Positions = ("Manager", "Coordinator", "Clerk", "Purchaser")}
               )
$OUs = ("AAA","BBB","CCC","DDD","EEE","FFF","GGG","HHH","III","JJJ","KKK")   # OUs to add to the $ou variable to create users in.  this is concatenated with the ou variable later in the script
$phoneCountryCodes = @{"GB" = "+44";"JP" = "+81";"US" = "+01"}         # Country codes for the countries used in the address file

# Other parameters
$userCount = 250000                           # How many users to create
$locationCount = 4                          # How many different offices locations to use

write-host "Creating "$usercount " users in "$locationcount " locations"

# Files used
$firstNameFile = "Firstnames.txt"            # Format: FirstName
$lastNameFile = "Lastnames.txt"              # Format: LastName
$addressFile = "Addresses.txt"               # Format: City,Street,State,PostalCode,Country
$postalAreaFile = "PostalAreaCode.txt"       # Format: PostalCode,PhoneAreaCode

#
# Read input files
#
write-host "Importing first names"
$firstNames = Import-CSV $firstNameFile
$firstnamecount = $firstNames.count-1
write-host "Imported "$firstnamecount" first names"

write-host "Importing last names"
$lastNames = Import-CSV $lastNameFile
$lastnamecount = $lastNames.count-1
write-host "Imported "$lastnamecount" last names"

write-host "Importing addresses"
$addresses = Import-CSV $addressFile

write-host "Importing postcodes"
$postalAreaCodesTemp = Import-CSV $postalAreaFile

# Convert the postal & phone area code object list into a hash
$postalAreaCodes = @{}
foreach ($row in $postalAreaCodesTemp)
{
   $postalAreaCodes[$row.PostalCode] = $row.PhoneAreaCode
}
$postalAreaCodesTemp = $null

#
# Preparation
#
$securePassword = ConvertTo-SecureString -AsPlainText $initialPassword -Force

# Select the configured number of locations from the address list
$locations = @()
$addressIndexesUsed = @()
for ($i = 0; $i -le $locationCount; $i++)
{
   write-host "setting a random address"
   # Determine a random address
   $addressIndex = -1
   do
   {
      $addressIndex = Get-Random -Minimum 0 -Maximum $addresses.Count
   } while ($addressIndexesUsed -contains $addressIndex)
   
   # Store the address in a location variable
   $street = $addresses[$addressIndex].Street
   $city = $addresses[$addressIndex].City
   $state = $addresses[$addressIndex].State
   $postalCode = $addresses[$addressIndex].PostalCode
   $country = $addresses[$addressIndex].Country
   $locations += @{"Street" = $street; "City" = $city; "State" = $state; "PostalCode" = $postalCode; "Country" = $country}
   
   # Do not use this address again
   $addressIndexesUsed += $addressIndex
}


#
# Create the users
#

#
# Randomly determine this user's properties
#
   
# Sex & name
$i = 0
write-host "set user"
while ($i -lt $userCount) 
{
    $FirstnameIndex = Get-Random -Minimum 0 -Maximum $firstNames.count
    $LastNameIndex = Get-Random -Minimum 0 -Maximum $lastnames.count
    $Fname = $firstnames[$FirstnameIndex].Firstname
    $Lname = $lastNames[$LastNameIndex].Lastname

    $displayName = $Fname + " " + $Lname

   # Address
   $locationIndex = Get-Random -Minimum 0 -Maximum $locations.Count
   $street = $locations[$locationIndex].Street
   $city = $locations[$locationIndex].City
   $state = $locations[$locationIndex].State
   $postalCode = $locations[$locationIndex].PostalCode
   $country = $locations[$locationIndex].Country
   
   # Department & title
   $departmentIndex = Get-Random -Minimum 0 -Maximum $departments.Count
   $department = $departments[$departmentIndex].Name
   $title = $departments[$departmentIndex].Positions[$(Get-Random -Minimum 0 -Maximum $departments[$departmentIndex].Positions.Count)]

   # OU to place
   $UserOUIndex = Get-Random -Minimum 0 -Maximum $ous.count
   $UserOU = $OUs[$UserOUIndex]
   $fullUserOU = -join("OU=",$UserOU,",",$OU)

   # Phone number
   if (-not $phoneCountryCodes.ContainsKey($country))
   {
      "ERROR: No country code found for $country"
      continue
   }
   if (-not $postalAreaCodes.ContainsKey($postalCode))
   {
      "ERROR: No country code found for $country"
      continue
   }
   $officePhone = $phoneCountryCodes[$country] + "-" + $postalAreaCodes[$postalCode].Substring(1) + "-" + (Get-Random -Minimum 100000 -Maximum 1000000)
   
   # Build the sAMAccountName: $orgShortName + employee number
   $employeeNumber = Get-Random -Minimum 100000 -Maximum 1000000
   $sAMAccountName = $orgShortName + $employeeNumber
   $userExists = $false
   Try   { $userExists = Get-ADUser -LDAPFilter "(sAMAccountName=$sAMAccountName)" }
   Catch { }
   if ($userExists)
   {
      $i=$i-1
      if ($i -lt 0)
      {$i=0}
      continue
   }

   #
   # Create the user account
   #
      New-ADUser -SamAccountName $sAMAccountName -Name $displayName -Path $fulluserou -AccountPassword $securePassword -Enabled $true -GivenName $Fname -Surname $Lname -DisplayName $displayName -EmailAddress "$Fname.$Lname@$dnsDomain" -StreetAddress $street -City $city -PostalCode $postalCode -State $state -Country $country -UserPrincipalName "$sAMAccountName@$dnsDomain" -Company $company -Department $department -EmployeeNumber $employeeNumber -Title $title -OfficePhone $officePhone

   "Created user #" + ($i+1) + ", $displayName, $sAMAccountName, $title, $department, $street, $city"
   $i = $i+1
   #$employeeNumber = $employeeNumber+1

      if ($i -ge $userCount) 
   {
       "Script Complete. Exiting"
       exit
   }
}