Creating 1.5 million users in AD

# Code Snippet from aperturescience.su

function check-even ($num)
{
    [bool]!($numm%2)
}

$start = 1
$end = 1500000


connect-qadservice

for ($ii = $start; $ii -le $end; $ii++)
{
    $name = "User"+$ii
    $city = "Brisbane"
    $company = "Acme Co"
    $firstname = "Test"
    $lastname = $name
    $displayname = $firstname + " " + $lastname
    $fax = "0123456789"
    $homephone ="0123456788"
    $email = $firsname + "@" + $lastname + ".com"
    $mobilephone ="0123456787"
    $password = "L3tM31n!"
    $phone = "0123456786"
    $postcode = "4000"
    $stateorprovince = "Queensland"
    $streetaddress = $ii + "/123 Fake Street"
    $title = "Mrs"
    if (check-even($ii))
    {
           $title = "Mr"
    }

    new-qaduser -name $name -ParentContainer "cn=users,dc=domain,dc=com" `
        -city $city -company $company -firstname $firstname -lastname $lastname `
        -displayname $displayname -fax $fix -homephone $homephone -email $email `
        -mobilephone $mobilephone -password $password -phone $phone `
        -postcode $postcode -stateorprovince $stateorprovince `
        -streetaddress $streetaddress -title $title

}

disconnect-qadservice


# Code Snippet from aperturescience.su