Question Amélioration script import AD

#Fonction permettant de remplacer les caractères diacritics
function Remove-DiacriticsAndSpaces
{
    Param(
        [String]$inputString
    )
    #Remplace les diacritics
    $sb = [Text.Encoding]::ASCII.GetString([Text.Encoding]::GetEncoding("Cyrillic").GetBytes($inputString))

    #Supprime les espaces et tout ce que la fonction ci-dessus a pu manquer
    return($sb -replace '[^a-z0-9]','')
}

#Fichier d'import (doit être au format UTF8)
$users = import-csv -path "C:\Users\admin\Desktop\Import AD users.csv" -delimiter ";"

$AD_SAM = get-ADuser -filter * -SearchBase "DC=mondomaine,DC=mondomaine,DC=com" | Select-Object -ExpandProperty SamAccountName

$NewUsers = $users | ForEach-Object {
    $sn = ($_.Nom).ToUpper() -replace '[ ]+',' '
    $givenname = $_.Prenom
    $Classe = $_.Classe
    $identifiant = $_.identifiant
    $ou = "OU=Eleves,DC=mondomaine,DC=mondomaine,DC=com"
    $description = 'GCU-ORG$ELEVE$' + $Classe
    $SAM = $givenname.Substring(0,1).ToLower() + $sn.ToLower()

    $SAM = Remove-DiacriticsAndSpaces -inputString $SAM
    $SAM = $SAM.SubString(0, [Math]::Min(19, $SAM.length))

    if ($AD_SAM -contains $SAM)
    {
        for ($i = 1 ; ; $i++)
        {
            $SAMtmp = $SAM.SubString(0, [Math]::Min(19 - $i.ToString().Length, $SAM.length)) + $i.ToString()

                if ($AD_SAM -notcontains $SAMtmp)
                {
                    $SAM = $SAMtmp
                    break
                }
        }
    }
    $AD_SAM += $SAM


    $CN = $sn + " " + $givenname + " " + "[$identifiant]"
    $displayName = $CN
    $UPN = $SAM + "@mondomaine.com"
    $userAccountControl = 66050
    $CannotChangePassword = 1
    $HomeDrive = "U"
    $HomeDirectory = "\\test\test"
    $ProfilePath = "\\server-data\Profils_Eleves\%profil%"
    $ScriptLogon = "test"
    $Password = '{0}{1}' -f (get-random -Minimum 1000000 -Maximum 9999999), [char](get-random -Minimum 65 -Maximum 90)
    $Password = $Password -replace '0',(Get-Random -Minimum 1 -Maximum 9) -replace 'O',[char](get-Random -Minimum 65 -Maximum 78)
    $Secure_String_pwd = ConvertTo-SecureString $Password -AsPlainText -Force
    $Enabled = 1
    

New-ADuser -displayName $displayName -Path $ou -Description $description -SamAccountName $SAM -givenname $givenname -Surname $sn -name $displayName -UserPrincipalName $UPN -PasswordNeverExpires $userAccountControl -CannotChangePassword $CannotChangePassword -HomeDrive $HomeDrive -HomeDirectory $HomeDirectory -ProfilePath $ProfilePath -ScriptPath $ScriptLogon -Enabled $Enabled -Accountpassword $Secure_String_pwd


[PSCustomObject]@{
    Nom = $sn
    Prenom = $givenname
    Classe = $Classe
    Login = $SAM
    Mot_de_passe = $Password
    }

}

#Fichier d'export (doit être au format UTF8)
$NewUsers | Export-Csv -path "C:\Users\admin\Desktop\Export eleves.csv" -Encoding UTF8 -Append -NoTypeInformation -Delimiter ";"

$CN = $sn + " " + $givenname + " " + "[$identifiant]"
$displayName = $CN