Create LDAP Users by using Script

Create User in Server 2003, using VB Script
this script doesn't work in server 2k8 due to security descriptor reason. if someone can make it work, it's awesome.

Set oRoot = GetObject("LDAP://rootDSE")
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))

Set oOU = GetObject("LDAP://ou=NDLP_Eng,DC=netdlp,DC=com")

Set oUser = oOU.Create("User", "cn=Dennis Mera")
oUser.Put "sAMAccountName", "DennisMera"
oUser.Put "Description", "0001 Wastewater treatment plant and system operator"

oUser.Put "displayName","Dennis Mera"
oUser.Put "givenName",  "Dennis"
oUser.Put "SN",         "Mera"
oUser.Put "initials",   "S"

oUser.Put "mail",       "[e-mail]"
oUser.Put "physicalDeliveryOfficeName", "Springfield"
oUser.Put "url", ""

oUser.Put "company",     "McAfee"
oUser.Put "department", "Reconnex"
oUser.Put "title",      "Wastewater treatment plant and system operator"
oUser.Put "manager",    "cn=Ratinder Ahuja,OU=NDLP_Eng,DC=netdlp,DC=com"

oUser.Put "telephoneNumber", "217-691-8192"
oUser.Put "homephone",         "408 111-0001"
oUser.Put "mobile",          "650 222-0001"
oUser.Put "pager",           "408 333-0001"
oUser.Put "ipPhone",         "0001"
oUser.Put "facsimileTelephoneNumber", "408 444-0001"
oUser.Put "info", "Please do not call until 2012"

oUser.Put "postalCode",       "62707"
oUser.Put "streetAddress", "4504 Scenic Way"
oUser.Put "st",            "IL"
oUser.Put "l",             "Springfield"
oUser.Put "c",             "US"
oUser.SetInfo

oUser.SetPassword "Mcafee123"
oUser.AccountDisabled = false
oUser.SetInfo

Create User in Server 2008, using PowerShell Script

# run following command first in prompt
# set-executionpolicy remotesigned

$objOU=[ADSI]"LDAP://ou=Deimos Engr,DC=deimos,DC=com"
$dataSource=import-csv "users.csv"

foreach($dataRecord in $datasource) {
    $cn = $dataRecord.FirstName + " " + $dataRecord.LastName
    $sAMAccountName = $dataRecord.FirstName + "." + $dataRecord.LastName
    $givenName = $dataRecord.FirstName
    $sn = $dataRecord.LastName
    $sAMAccountName = $sAMAccountName.ToLower()
    $displayName = $sn + ", " + $givenName
    $userPrincipalName = $sAMAccountName + "@deimos.com"
    $objUser = $objOU.Create("user","CN="+$cn)
    $objUser.Put("sAMAccountName",$sAMAccountName)
    $objUser.Put("userPrincipalName",$userPrincipalName)
    $objUser.Put("displayName",$displayName)
    $objUser.Put("givenName",$givenName)
    $objUser.Put("sn",$sn)
    $objUser.SetInfo()
    $objUser.SetPassword("Mcafee123")
    $objUser.psbase.InvokeSet("AccountDisabled",$false)
    $objUser.SetInfo()
}

CVS File Sample

FirstName,LastName,Password
Joe,Blow,Mcafee123
Chris,Goat,Mcafee123
Bobby,Brown,Mcafee123
Matt,Johnson,Mcafee123
Nick,Noob,Mcafee123