[R] Création de compte AD

RedOx · #1

Bonjour à tous,

Tout d'abord, j'ai un fichier Excel sur lequel il faudra remplir les informations de l'utilisateur pour le rentrer dans l'AD. En cliquant sur envoyer, un fichier se créé et un mail est envoyé.

Voilà le fichier en question :

► Afficher le texte

Lors de implémentation de ces données dans l'AD, j'ai quelques problèmes.

La date de fin ne s'ajoute pas correctement dans l'AD, "accountExpires". Par exemple quand j'écris 15/06/2015 sur fichier Excel puis après j'exécute le script, dans l'AD il remonte toujours la même date : 24/01/1601. Je voulais savoir s'il n'y avait pas une histoire de format de date US/FR.

Edit : J'ai trouver que la date dans AD est dans un format particulier (Nanoseconde depuis 1601, je crois), il faut juste que je trouve un moyen de convertir une date normal en date format AD. Il y a pas mal de convertisseur de date AD en date normal, mais je cherche le contraire.

Après, j'ai encore quelques questions du fait que je suis débutant, nul sur AutoIt.

Je voudrais compter les lignes utilisées dans le tableau Excel. J'ai mis par défaut un tableau de 14 lignes mais je pense que généralement que seulement 2 ou 3 lignes seront utilisées. J'ai fait ce bout de code mais cela ne marche pas :

► Afficher le texte

Avez-vous une idée pour m'aider sur ce point?

Edit : Voilà mon code en entier :

► Afficher le texte

Code : Tout sélectionner

#include <Excel.au3>
#include <AD.au3>

$fichier = "test.xls"
$fin = 0
$nb_ligne = 0

If not FileExists("test.xls") = 1 Then
    msgbox(64,"ERREUR","Le fichier test.xls n'est pas présent dans ")

    Else
    ProcessClose("Excel.exe")

    $oExcel = ObjCreate("Excel.Application")
    $oExcel.Visible = 0
    $oExcel.WorkBooks.Open("D:\USERS\test.xls")





         for $j = 1 to 14 step 1

            if ($oExcel.ActiveSheet.Cells(1+$j,1).value > " ") Then

               $nb_ligne += 1

            EndIf

         Next


         for $i = 1 to $nb_ligne step 1


            $statut = $oExcel.Activesheet.Cells(1+$i,1).Value
            $nom = $oExcel.Activesheet.Cells(1+$i,2).Value
            $prenom = $oExcel.Activesheet.Cells(1+$i,3).Value
            $matricule = $oExcel.Activesheet.Cells(1+$i,4).Value
            $fonction = $oExcel.Activesheet.Cells(1+$i,5).Value
            $service = $oExcel.Activesheet.Cells(1+$i, 6).Value
            $societe = $oExcel.Activesheet.Cells(1+$i, 7).Value

            $ncomplet = $prenom&" "&$nom
            $upn = StringUpper(StringLeft($prenom, 1))& StringUpper(StringLeft($nom, 7))



                if (($statut = "CDI") OR ($statut = "CDD") OR ($statut = "APPRENTI")) Then
                    $ou = 'OU=TEST,OU=Users,OU=Salindres,DC=axens,DC=local'

                    desc()

                else
                    $ou = 'OU=TEST,OU=Users,OU=Salindres,DC=axens,DC=local'

                    desc()

                EndIf


                    func desc()
                    _AD_Open()
                                $iValue = _AD_CreateUser($ou, $upn, $ncomplet)
                                If $iValue = 1 Then
                                $fin = $fin + 1
                                MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' a été crée avec succés est dans l'OU '" & $ou,5)

                                $iValue = _AD_ModifyAttribute($upn, "givenName", $prenom)
                                $iValue = _AD_ModifyAttribute($upn, "sn", $nom)
                                $iValue = _AD_ModifyAttribute($upn, "displayName", $ncomplet)
                                $iValue = _AD_ModifyAttribute($upn, "l", "Salindres")
                                $iValue = _AD_ModifyAttribute($upn, "streetAddress", "Usine de Salindres, Avenue Jean Moulin")
                                $iValue = _AD_ModifyAttribute($upn, "PostalCode", "30340")
                                $iValue = _AD_ModifyAttribute($upn, "profilepath", "\\SALNT11\PROFILS$\" & $upn)
                                $iValue = _AD_ModifyAttribute($upn, "employeeID", $matricule)
                                $iValue = _AD_ModifyAttribute($upn, "Homedrive", "U:")
                                $iValue = _AD_ModifyAttribute($upn, "homedirectory", "\\SALNAS02\DATA\USERS\" & $upn)
                                $iValue = _AD_ModifyAttribute($upn, "scriptPath", "logonsalusr.vbs")
                                $iValue = _AD_ModifyAttribute($upn, "title", $fonction)
                                $iValue = _AD_ModifyAttribute($upn, "department", $service)


                                $iValue = _AD_SetPassword($upn, StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456")
                                Run(@ComSpec & " /c " & 'dsmod user "CN='& $ncomplet &","& $ou &'" -mustchpwd yes', "", @SW_HIDE)

                                       if (($statut = "CDI") OR ($statut = "CDD") OR ($statut = "APPRENTI")) Then

                                          $iValue = _AD_ModifyAttribute($upn, "employeeType", "INTERNE")
                                          $iValue = _AD_ModifyAttribute($upn, "company", "Axens")
                                          $iValue = _AD_ModifyAttribute($upn, "mail", $prenom & "." & $nom & "@axens.net")

                                                if $statut = "CDI" Then

                                                   $iValue = _AD_ModifyAttribute($upn, "accountExpires", 0)

                                                Else

                                                   $iValue = _AD_ModifyAttribute($upn, "accountExpires", 130728816300000000)

                                                EndIf

                                       Else

                                          $iValue = _AD_ModifyAttribute($upn, "employeeType", "EXTERNE")
                                          $iValue = _AD_ModifyAttribute($upn, "company", $societe)
                                          $iValue = _AD_ModifyAttribute($upn, "mail", $prenom & "." & $nom & ".pro@axens.net")
                                          $iValue = _AD_ModifyAttribute($upn, "accountExpires", 130728816300000000)

                                       EndIf

                                ElseIf @error = 1 Then
                                    MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' est déja existant",5)

                                Else
                                    MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Retour code erreur '" & @error & "' venant de l'Active Directory")
                                EndIf



                    _AD_Close()
                    endfunc



            Next




EndIf
ProcessClose("Excel.exe")
msgbox(0,"Fin","La création est terminée avec "&$fin&" compte(s) créé(s)",5)

J'aimerais bien votre aide pour résoudre mes problèmes. De plus si vous connaissez un bon tutoriel sur AutoIt / AD, je suis preneur.

Merci d'avance !

#2

Bonjour,
Pas testé mais ça devrait le faire

Code : Tout sélectionner

             for $j = 1 to 14 step 1

                if $oExcel.ActiveSheet.Cells(1+$j,1).value > "" Then 

                   $nb_ligne +=  1

                EndIf

             Next

Si ça ne marche pas, essayez > " " (espace entre les 2 " )
Et pour faire plus simple s'il n'y a qu'un tableau dans la sheet

Code : Tout sélectionner

$nbrows = $oExcel.ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count

RedOx · #3

Merci Walkson. Effectivement ca marche mieux avec ton code.

RedOx · #4

J'ai encore 2 questions.

N°1. J'ai réussi à convertir ma date dans le format LDAP pour l'implémenter dans l'AD mais ce format est composé de 18 chiffres. Quand je fais ma dernière opérations :

$datefinldap = ($datefinepoch + 11644473600)*10000000

Le résultat m'est retourné sous puissance de 10. Par exemple 1.30724064e+017. je voudrais savoir s'il y a un moyen de forcer à écrire pleinement le résultat sur 18 chiffres.

N°2. Je fais maintenant une recherche de mes fichiers Excel et les ouvrent l'un à la suite de l'autre. Je voudrais après les avoir lus, les déplacer dans un autre dossier.

► Afficher le texte

Tout marche correctement sauf le fait que le fichier ne se déplace pas dans le dossier.

Mon code en entier :

► Afficher le texte

Code : Tout sélectionner

#include <Excel.au3>
#include <AD.au3>
#include <RecFileListToArray.au3>
#include <Array.au3>

$fin = 0

$recherche = _RecFileListToArray("D:\USERS\Nouvelles Demandes\","*.xls", 0, 0)



For $k = 1 To UBound($recherche) - 1
    ConsoleWrite($recherche[$k] & @CRLF)


$nb_ligne = 0


If not FileExists("D:\USERS\Nouvelles Demandes\" & $recherche[$k]) = 1 Then
    msgbox(64,"ERREUR","Le fichier test.xls n'est pas présent dans")

    Else
    ProcessClose("Excel.exe")

    $oExcel = ObjCreate("Excel.Application")
    $oExcel.Visible = 0
    $oExcel.WorkBooks.Open("D:\USERS\Nouvelles Demandes\" & $recherche[$k])





         For $j = 1 to 14 step 1

            if ($oExcel.ActiveSheet.Cells(1+$j,1).value > " ") Then

               $nb_ligne += 1

            EndIf

         Next


         For $i = 1 to $nb_ligne step 1


            $statut = $oExcel.Activesheet.Cells(1+$i,1).Value
            $nom = $oExcel.Activesheet.Cells(1+$i,2).Value
            $prenom = $oExcel.Activesheet.Cells(1+$i,3).Value
            $matricule = $oExcel.Activesheet.Cells(1+$i,4).Value
            $fonction = $oExcel.Activesheet.Cells(1+$i,5).Value
            $service = $oExcel.Activesheet.Cells(1+$i, 6).Value
            $societe = $oExcel.Activesheet.Cells(1+$i, 7).Value
            $datefin = $oExcel.Activesheet.Cells(1+$i, 11).Value
            ConsoleWrite($datefin & @CRLF)
            $datefinldap = ($datefin + 11644473600)*10000000
            ConsoleWrite($datefinldap & @CRLF)
            $ncomplet = $prenom&" "&$nom
            $upn = StringUpper(StringLeft($prenom, 1))& StringUpper(StringLeft($nom, 7))



                if (($statut = "CDI") OR ($statut = "CDD") OR ($statut = "APPRENTI")) Then
                    $ou = 'OU=INT,OU=TEST,OU=Users,OU=Salindres,DC=axens,DC=local'

                    desc()

                else

                        if ($statut = "ETV") Then

                           $ou = 'OU=ETV,OU=EXT,OU=TEST,OU=Users,OU=Salindres,DC=axens,DC=local'

                           desc()

                        ElseIf ($statut = "INTERIM") Then

                           $ou = 'OU=INTERIM,OU=EXT,OU=TEST,OU=Users,OU=Salindres,DC=axens,DC=local'

                           desc()

                        Else

                           $ou = 'OU=STAG,OU=EXT,OU=TEST,OU=Users,OU=Salindres,DC=axens,DC=local'

                           desc()

                        EndIf

                EndIf


                    func desc()
                    _AD_Open()
                                $iValue = _AD_CreateUser($ou, $upn, $ncomplet)
                                If $iValue = 1 Then
                                $fin = $fin + 1
                                MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' a été crée avec succés est dans l'OU '" & $ou,5)

                                $iValue = _AD_ModifyAttribute($upn, "givenName", $prenom)
                                $iValue = _AD_ModifyAttribute($upn, "sn", $nom)
                                $iValue = _AD_ModifyAttribute($upn, "displayName", $ncomplet)
                                $iValue = _AD_ModifyAttribute($upn, "l", "Salindres")
                                $iValue = _AD_ModifyAttribute($upn, "streetAddress", "Usine de Salindres, Avenue Jean Moulin")
                                $iValue = _AD_ModifyAttribute($upn, "PostalCode", "30340")
                                $iValue = _AD_ModifyAttribute($upn, "profilepath", "\\SALNT11\PROFILS$\" & $upn)
                                $iValue = _AD_ModifyAttribute($upn, "employeeID", $matricule)
                                $iValue = _AD_ModifyAttribute($upn, "Homedrive", "U:")
                                $iValue = _AD_ModifyAttribute($upn, "homedirectory", "\\SALNAS02\DATA\USERS\" & $upn)
                                $iValue = _AD_ModifyAttribute($upn, "scriptPath", "logonsalusr.vbs")
                                $iValue = _AD_ModifyAttribute($upn, "title", $fonction)
                                $iValue = _AD_ModifyAttribute($upn, "department", $service)


                                $iValue = _AD_SetPassword($upn, StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456")
                                Run(@ComSpec & " /c " & 'dsmod user "CN='& $ncomplet &","& $ou &'" -mustchpwd yes', "", @SW_HIDE)

                                       if (($statut = "CDI") OR ($statut = "CDD") OR ($statut = "APPRENTI")) Then

                                          $iValue = _AD_ModifyAttribute($upn, "employeeType", "INTERNE")
                                          $iValue = _AD_ModifyAttribute($upn, "company", "Axens")
                                          $iValue = _AD_ModifyAttribute($upn, "mail", $prenom & "." & $nom & "@axens.net")

                                                if $statut = "CDI" Then

                                                   $iValue = _AD_ModifyAttribute($upn, "accountExpires", "0")

                                                Else
                                                   ConsoleWrite($datefinldap & @CRLF)
                                                   $iValue = _AD_ModifyAttribute($upn, "accountExpires", $datefinldap)

                                                EndIf

                                       Else

                                          $iValue = _AD_ModifyAttribute($upn, "employeeType", "EXTERNE")
                                          $iValue = _AD_ModifyAttribute($upn, "company", $societe)
                                          $iValue = _AD_ModifyAttribute($upn, "mail", $prenom & "." & $nom & ".pro@axens.net")
                                          $iValue = _AD_ModifyAttribute($upn, "accountExpires", "130840704000000000")
                                          ConsoleWrite($datefinldap & @CRLF)
                                       EndIf

                                ElseIf @error = 1 Then
                                    MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' est déja existant",5)

                                Else
                                    MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Retour code erreur '" & @error & "' venant de l'Active Directory")
                                EndIf



                    _AD_Close()
                    endfunc



            Next









EndIf

ProcessClose("Excel.exe")
FileMove("D:\USERS\Nouvelles Demandes\" & $recherche[$k], "D:\USERS\Demandes Validées\" & $recherche[$k])


Next


msgbox(0,"Fin","La création est terminée avec "&$fin&" compte(s) créé(s)",5)

#5

Rebonjour,
Si nous avons la même include, votre chemin se répète en double "D:\AA\D:\AA\Exel.xls" et donc il faut compléter la fonction

Code : Tout sélectionner

$recherche = _RecFileListToArray("D:\USERS\Nouvelles Demandes\","*.xls", 1, 0, 0, 0)

Pour avoir seulement le nom du fichier.
Éventuellement, rajoutez l'option 8 ( 8 = $FC_CREATEPATH) à Filemove
J'utilise régulièrement ceci (dans la boucle)

Code : Tout sélectionner

MsgBox(0,"",$recherche[$k]) ou
ConsoleWrite($recherche[$k] & @CRLF)

pour m'assurer du résultat
Pour connaitre les conditions d'une UDF vous surlignez l'include "RecFileListToArray.au3" et dans outils de scite "open include"
Autrement "F1" --> "_FileListToArrayRec " Vous avez la même fonction qui est incluse dans Autoit (Comme cela, on parle de la même chose)
Pour la question 1, je laisse les spécialistes à l’œuvre.

#6

Pour n°1 :

Code : Tout sélectionner

$datefinldap = 1.30724064e+017
ConsoleWrite($datefinldap & " = " & StringFormat("%.0f", $datefinldap) & @CRLF)

#7

Il y a un truc qui m'intrigue... dans l'UDF AD c'est Int() qui est utilisé mais ça ajoute 1 au résultat. Y aurait-il une erreur dans l'UDF ?

Code : Tout sélectionner

$datefinldap = 1.30724064E+017
ConsoleWrite(StringFormat("%.0f", $datefinldap) & @CRLF) ; 130724064000000000
ConsoleWrite(Int($datefinldap) & @CRLF)                  ; 130724064000000001

RedOx · #8

C'est bon! Parfait!
Merci à vous 3 trois pour votre aide! J'ai plus de problème, tout marche comme je voulais alors je vais mettre le sujet en résolu!

AutoIt Français

[R] Création de compte AD

[R] Création de compte AD

Re: [..] Création de compte AD

Re: [..] Création de compte AD

Re: [..] Création de compte AD

Re: [..] Création de compte AD

Re: [..] Création de compte AD

Re: [..] Création de compte AD

Re: [..] Création de compte AD