[..] Valeur unique

[ludoo]

Bonjour à tous ,
pour les besoin d'un script , ajout d'un utilisateur dans un annuaire AD (microsoft)
il faut que le sAMAccountName doit être unique , maximum de caractère 20.
j'utilise 2 imput : prenom et nom
la création du sAMAccountName = nom + 2 première lettre du prénom , si pas unique on rajoute la 3 lettre du prénom ainsi de suite.
j'utilise UDF AD pour effectuer cette manip .
je bloque sur la boucle à utiliser pour rendre ce sAMAccountName unique.
voici un début de script de la fonction:

► Afficher le texte

Code : Tout sélectionner

Func useruniqueAD()
    If _AD_ObjectExists($sAMAccountNameUser) Then
        MsgBox(64, "Active Directory Functions", "OU '" & $sAMAccountNameUser & "' exists"& @CRLF & "Une création manuelle de l'utilisateur est requise.")
        Local $pUserUpper = StringUpper($pUser)
        Local $pUserLen = StringLen($pUser)
        Local $nUserLen = StringLen($snUserU)
        Local $pnUserLen = $pUserLen+$nUserLen
        Local $Splitprenom = StringSplit($pUserUpper , "")
        If $pnUserLen > 20 Then
            MsgBox(64, "Active Directory Functions", "Le nom d'ouverture session en version 2000 dépasse le nombre maximum de caractère autorisé")
            Exit
        Else
            Local $pUserU3 = $spUserU&$Splitprenom[3]
            Local $sAMAccountNameUser = $snUserU&$pUserU3
        Exit
    Else
        MsgBox(64, "Active Directory Functions", "OU '" & $sAMAccountNameUser & "' does not exist")
    EndIf
    ;EndIf
EndFunc

merci de votre aide.

[jbnh]

Si sAMAccountName = nom + 2 première lettre du prénom

pourquoi faire le check pnUserLen (entièreté du nom et du prénom) > 20 ?

Une petite idée de code sinon

Code : Tout sélectionner

boucle de i = 1 jusqu'a prenom.length 
    si nom+stringleft(prenom,i) est unique et <20
        return true

return false;

[jguinch]

Question à 2 balles (pour rajouter une couche) :
Comment vas-tu gérer le cas de figure où il y a un homonyme (si tu as 2 "Marc DUPOND" qui travaillent dans l'entreprise) ?

C'est pas pour faire le chiant hein, mais mettre en évidence qu'il y a beaucoup de cas de figure à prendre en compte... (nom de jeune fille/marital + divorce, doublons, départs...).

[ludoo]

oui , c vrai l'enfer des admin ,
d’où une règle de nommage avec nom entier et les 2 première lettres du prénom.
si un user identique , rajoute 3 lettres du prénom , pour les cas particulier création manuel a défaut d'un script automatique.

je bloque sur la boucle , je vois pas comment récupérer les lettres du prénom.

[TommyDDR]

nom + 2 lettres prénom et si doublon -> 1, 2, 3, etc

[ludoo]

pas de problème sur le raisonnement , mais c'est le code que je trouve pas à faire.

[walkson]

Bonsoir,
Une piste...?
En partant du principe que les noms enregistrés sont montés dans un array

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
Local $array[5] = ["BOBROWSKIJASTRZEliA","BOBROWSKIJASTRZEliB","DUPONTjeaA","MARTINlouA","MARTINlouB"]
MsgBox(0,"",unic("Bobrowski Jastrzebiec-Bolescicow","Li "))
MsgBox(0,"",unic("Dupont","Jean"))
MsgBox(0,"",unic("MARTIN","louis"))
Func unic($nom,$prenom)
    $nom = StringReplace($nom," ","");supprime espace vide
    $long = StringLen($nom)
    If $long > 16 Then $nom = StringMid($nom,1,16);16 caracteres maxi
    $nom = StringUpper($nom)
    $prenom = StringReplace($prenom," ","");supprime espace vide
    $prenom = StringMid($prenom,1,3);3 caracteres
    $prenom = StringLower($prenom)
    ConsoleWrite($nom & $prenom & @CR)
    For $i = 65 To 90 ;ASCII Character A à Z
        _ArraySearch($array,$nom & $prenom & Chr($i))
        If @error Then
            $nomUnic = $nom & $prenom & Chr($i)
            ExitLoop
        EndIf
    Next
    ConsoleWrite($nomUnic & @CR)
Return $nomUnic
EndFunc

Je limite le nom à 16 caractères + 3 pour le prénom et 1 de reconnaissance (en lettre) = 20 maxi

[ludoo]

merci pour le script, il fonctionne parfaitement.
j’étais parti sur cette base

► Afficher le texte

Code : Tout sélectionner

#comments-start
Local $comptead = "martinlo"
Local $nom = "martin"
Local $prenom = "louis"
Local $npl = "martinlo"
Local $nbsprenom = StringLen($prenom)
ConsoleWrite($nbsprenom &@CRLF)
local $de = StringSplit($prenom, "")
;~ For $display In $de
;~  ConsoleWrite($display &@CRLF)
;~ Next

;~ For $i = 1 To $de[0] ; Loop through the array returned by StringSplit to display the individual values.
;~      MsgBox($MB_SYSTEMMODAL, "", "$aDays[" & $i & "] - " & $de[$i])
;~ Next

For $i = 1 To $de[0] Step 1
Local $user1 = $nom&$de[$i]
ConsoleWrite($user1& @CRLF)
ConsoleWrite($user1&$de[$i] &@CRLF)
Next

j'arrive pas à reconstituer le prénom lettre par lettre après le StringSplit.

[walkson]

Ceci ?

► Afficher le texte

Code : Tout sélectionner

    Local $comptead = "martinlo"
    Local $nom = "martin"
    Local $prenom = "louis"
    Local $npl = "martinlo"
    Local $nbsprenom = StringLen($prenom)
    ConsoleWrite($nbsprenom &@CRLF)
    local $de = StringSplit($prenom, "")
    ;~ For $display In $de
    ;~  ConsoleWrite($display &@CRLF)
    ;~ Next

    ;~ For $i = 1 To $de[0] ; Loop through the array returned by StringSplit to display the individual values.
    ;~      MsgBox($MB_SYSTEMMODAL, "", "$aDays[" & $i & "] - " & $de[$i])
    ;~ Next
Local $user1 = $nom
    For $i = 1 To $de[0] Step 1
    ;Local $user1 = $nom&$de[$i]
    ;ConsoleWrite($user1& @CRLF)
    ;ConsoleWrite($user1&$de[$i] &@CRLF)
    $user1 &= $de[$i]
Next
ConsoleWrite($user1 &@CRLF)