Untitled

From Rude Bat, 1 Week ago, written in Plain Text.

Embed

Download Paste or View Raw
Hits: 39

# Import the ActiveDirectory module

Import-Module ActiveDirectory

# Define the path to the CSV file

$csvPath = "C:\path\to\csv\file.csv"

# Define the OU where the new users will be created

$ouPath = "OU=Employees,DC=example,DC=com"

# Define the password length and complexity

$passwordLength = 10

$passwordComplexity = [System.Security.Cryptography.PasswordDeriveBytes]::Create("P@ssw0rd!", 0, 0).GetBytes(32)

# Read the CSV file

$users = Import-Csv $csvPath

# Loop through each user and create an AD account

foreach ($user in $users) {

# Generate a random password

$password = [System.Web.Security.Membership]::GeneratePassword($passwordLength, 2)

# Set the AD account properties

$adUser = @{

GivenName = $user.'First name'

Surname = $user.'Last name'

DisplayName = "$($user.'First name') $($user.'Last name')"

Name = "$($user.'First name') $($user.'Last name')"

UserPrincipalName = $user.Email

SamAccountName = $user.Email.Split("@")[0]

AccountPassword = ConvertTo-SecureString -String $password -AsPlainText -Force

Enabled = $true

Path = $ouPath

}

# Create the AD account

New-ADUser @adUser

# Print the username and password

Write-Host "Username: $($adUser.SamAccountName)"

Write-Host "Password: $password"

}

Author

Title

Language

Your paste - Paste your paste here

# Import the ActiveDirectory module
Import-Module ActiveDirectory

# Define the path to the CSV file
$csvPath = "C:\path\to\csv\file.csv"

# Define the OU where the new users will be created
$ouPath = "OU=Employees,DC=example,DC=com"

# Define the password length and complexity
$passwordLength = 10
$passwordComplexity = [System.Security.Cryptography.PasswordDeriveBytes]::Create("P@ssw0rd!", 0, 0).GetBytes(32)

# Read the CSV file
$users = Import-Csv $csvPath

# Loop through each user and create an AD account
foreach ($user in $users) {
    # Generate a random password
    $password = [System.Web.Security.Membership]::GeneratePassword($passwordLength, 2)

# Set the AD account properties
    $adUser = @{
        GivenName = $user.'First name'
        Surname = $user.'Last name'
        DisplayName = "$($user.'First name') $($user.'Last name')"
        Name = "$($user.'First name') $($user.'Last name')"
        UserPrincipalName = $user.Email
        SamAccountName = $user.Email.Split("@")[0]
        AccountPassword = ConvertTo-SecureString -String $password -AsPlainText -Force
        Enabled = $true
        Path = $ouPath
    }

# Create the AD account
    New-ADUser @adUser

# Print the username and password
    Write-Host "Username: $($adUser.SamAccountName)"
    Write-Host "Password: $password"
}

Private - Private paste aren't shown in recent listings.

Delete After - When should we delete your paste?

Spam protection -

{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"sql","xml":"xml","apl":"apl","asterisk":"asterisk","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","d":"d","ecmascript":"javascript","erlang":"erlang","groovy":"text\/x-groovy","haskell":"text\/x-haskell","haxe":"text\/x-haxe","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mirc":"mirc","mysql":"sql","ocaml":"text\/x-ocaml","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"sql","properties":"text\/x-properties","q":"text\/x-q","scala":"scala","scheme":"text\/x-scheme","tcl":"text\/x-tcl","vb":"text\/x-vb","verilog":"text\/x-verilog","yaml":"text\/x-yaml","z80":"text\/x-z80"}

Reply to "Untitled"