for each $userline in csvRead()
 addADUser($userline)
next

Break on

$filename = "test1.csv"

If Open(1,$filename) = 0

 $line = ReadLine(1)

 While @ERROR = 0

  $array = Split($line,",")

  ?

  For Each $field In $array
   ? $field
  Next

  $line = ReadLine(1)

 Loop

 $= Close(1)

EndIf

Exit 1 

$Domain = GetObject("LDAP://cn=Users,dc=us,dc=fabricom,dc=com")
$user = $Domain.Create("user", "cn=" + $Accounts[0,$Element])
$User.Put ("sAMAccountName", $Accounts[1,$Element]) 
$user.SetPassword ($Account[2,$Element])
$user.Description = "Voice Admin"
$user.SetInfo

AdCreateGroup()		Creates an active directory group 
AdGroupMember()		List or Modify an AD Group's contents 
ADSIUserInfo()		Get or Set a user attribute via ADSI
ADSIUserStatus		Returns the status of a user account 
ComputerInGroup()		Checks the local computer for membership in one or more groups
GetMachineList()		Returns a list of all computers in a specified domain
GetObjectOU()		Returns the OU string for the current user (default) or computer
GetResourceBySrv()		Returns an array of SRV record data 
GetUserOU()		Returns the OU string for the current user 
GroupMember()		List or Modify a Group's contents 
GroupMembers()		Returns an array of all group members of the specified group 
InOU()			Returns a boolean if the current user or computer is a member of the named OU
LDAPQuery()		Uses ADODB to retrieve information from Active Directory.
ListNestedGroups()		Retrieves a list of all the groups an account is a member of including nested groups
SetDnsSRV()		Creates a DNS SRV record (with defaults for SWDIST)

Break on

$filename = "test1.csv"

If Open(1,$filename) = 0

 $line = ReadLine(1)

 While @ERROR = 0

  $array = Split($line,",")

 ?
? "De volgende gebruiker wordt toegevoegd:"
? $array[0] + " uit lokaal " + $array[4] + "."



CreateUserAccount("TestServer.local",
                  "cn= Users",
                  $array[0],
                  $array[1],
                  $array[2],
                  "Dit is een user die is aangemaakt door het script van Jeroen Beuzenberg",
                  $array[4],
                  "http://www.jeroenbeuzenberg.test.nl",
			$array[1])

Function CreateUserAccount($Domain,
                           $ContainerDN,
                           $Account,
                           $FirstName,
                           $LastName,
                           optional $Description,
                           optional $lokaal,
                           optional $WebPage,
				   $password,
                           optional $userPrincipalName )

    Dim $aDom, $part, $sDNdom, $LDAPpath, $oContainer, $oUser

    if VarTypeName($userPrincipalName) = "Empty"
        $userPrincipalName = $Account + "@@" + $Domain
    endif

    $aDom = split($Domain,".")
    for each $part in $aDom
	    $sDNdom = "" + $sDNdom + ",dc=" + $part
    next

    $LDAPpath = "LDAP://" + $Domain + "/" + $ContainerDN + $sDNdom
    ;? $LDAPpath

    $oContainer = GetObject($LDAPpath)
    if @error
        ? "GetObject Error: " + @error +  " "  + @Serror
    endif

    $oUser = $oContainer.Create("User", "cn=" + $Account)
    if @error
        ? "Create Error: " + @error +  " "  + @Serror
    endif

    $oUser.Put("sAMAccountName", $Account)
    $oUser.Put("givenName", $FirstName)     
    $oUser.Put("sn", $LastName)             
    $oUser.Put("displayName",$LastName  + iif($LastName, ", ","") +
                             $FirstName + iif($MiddleInitial, " ", "") +
                             $MiddleInitial)
    $oUser.Put("description", $Description) 
    $oUser.Put("physicalDeliveryOfficeName",$lokaal)
    $oUser.Put("wWWHomePage",$WebPage)      
    $oUser.Put("userPrincipalName", $userPrincipalName)

    $oUser.SetInfo
    $oUser.AccountDisabled = 0
    $oUser.SetPassword($password)
    $oUser.SetInfo

    $CreateUserAccount = @ERROR
    if $CreateUserAccount
        ? "SetInfo Error: "" Deze gebruiker bestaat al! "
	  ? "De gebruiker [" + $array[0] + "] die u probeerde toe te voegen is niet gewijzigd."
	  ? "Foutcode: "
    endif
Endfunction
  

  $line = ReadLine(1)
  
 Loop

 $= Close(1)