[Ex] Création Compte AD

[aikiox]

Bonjour,

J'ai créé un script pour la création de compte AD.
Par contre, il faut une architecture AD bien particuliaire mais il peut servir d'exemple.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
    GUICreate("Création Compte",680, 80, -1, -1,-1)
    $valider = GUICtrlCreateButton("Valider",610,50,55)
    GUICtrlCreateLabel("Nom", 110, 10, 75, 17)
    GUICtrlCreateLabel("Prenom", 265, 10, 75, 17)
    GUICtrlCreateLabel("Compte 1", 20, 26, 45, 17)
    GuiCtrlCreateLabel("Service", 425, 10, 75, 17)
    $nom = GUICtrlCreateInput("", 70, 25, 120, 21)
    $prenom = GUICtrlCreateInput("", 230, 25, 120, 21)
    $service = GuiCtrlCreateCombo("",390,25,120,21)
    GUICtrlSetData(-1, "Direction|Administration|Production 1|Production 2|Informatique", "")

    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUICtrlSetOnEvent($valider,"create")
    GUICtrlSetState("", $GUI_CHECKED)
    GUISetState(@SW_SHOW)


     While 1
          sleep(100)
      Wend

func create()

$cnom = GUICtrlRead($nom)
$cprenom = GUICtrlRead($prenom)
$cservice = GUICtrlRead($service)


    if $cservice = "Direction" Then
    Run(@ComSpec & " /c " & 'dsadd user cn="'&$cprenom&" "&$cnom&'",ou=Utilisateurs,ou="Service Direction",dc=drinkevol,dc=lan -upn "'&$cprenom&"."&$cnom&'"@drinkevol.lan -ln "'&$cnom&'" -fn "'&$cprenom&'" -display "'&$cprenom&" "&$cnom&'" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
    MsgBox(64,"Compte Créé",$cprenom&" "&$cnom&" a été créé")
    exit

Else
    if $cservice = "Administration" Then
    Run(@ComSpec & " /c " & 'dsadd user cn="'&$cprenom&" "&$cnom&'",ou=Utilisateurs,ou="Service Administratif",dc=drinkevol,dc=lan -upn "'&$cprenom&"."&$cnom&'"@drinkevol.lan -ln "'&$cnom&'" -fn "'&$cprenom&'" -display "'&$cprenom&" "&$cnom&'" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
    MsgBox(64,"Compte Créé",$cprenom&" "&$cnom&" a été créé")
    exit

Else
    if $cservice = "Production 1" Then
    Run(@ComSpec & " /c " & 'dsadd user cn="'&$cprenom&" "&$cnom&'",ou=Utilisateurs,ou="Production 1",ou="Service Production",dc=drinkevol,dc=lan -upn "'&$cprenom&"."&$cnom&'"@drinkevol.lan -ln "'&$cnom&'" -fn "'&$cprenom&'" -display "'&$cprenom&" "&$cnom&'" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
    MsgBox(64,"Compte Créé",$cprenom&" "&$cnom&" a été créé")
    exit


Else
    if $cservice = "Production 2" Then
    Run(@ComSpec & " /c " & 'dsadd user cn="'&$cprenom&" "&$cnom&'",ou=Utilisateurs,ou="Production 2",ou="Service Production",dc=drinkevol,dc=lan -upn "'&$cprenom&"."&$cnom&'"@drinkevol.lan -ln "'&$cnom&'" -fn "'&$cprenom&'" -display "'&$cprenom&" "&$cnom&'" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
    MsgBox(64,"Compte Créé",$cprenom&" "&$cnom&" a été créé")
    exit


Else
    if $cservice = "Informatique" Then
    Run(@ComSpec & " /c " & 'dsadd user cn="'&$cprenom&" "&$cnom&'",ou=Utilisateurs,ou="Service Informatique",dc=drinkevol,dc=lan -upn "'&$cprenom&"."&$cnom&'"@drinkevol.lan -ln "'&$cnom&'" -fn "'&$cprenom&'" -display "'&$cprenom&" "&$cnom&'" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
    MsgBox(64,"Compte Créé",$cprenom&" "&$cnom&" a été créé")
    exit

Else
    MsgBox(64,"ERREUR","Veuillez selectionner un service")


EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc

Func CLOSEClicked()
      Exit
EndFunc

Cordialement
Romain

[Yogui]

J'ai un script quasi identique en début de semaine :
mais j'utilise l'include AD.AU3 disponible ICI

(j'ai fait un peu de ménage dans mon script qui va en plus écrire dans les base d'autre application donc si certaine variable ne sont pas utilisée c'est normal)

► Afficher le texte

Code : Tout sélectionner

#include <AD.au3>
#include <ButtonConstants.au3>
#include <file.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <date.au3>

_AD_Open()


Global $Fonction, $machine, $ADELI, $RPPS, $datefin = '', $datedeb = '',$date

$Form1_1 = GUICreate("Création Utilisateur", 519, 672, 192, 124)

$Group1 = GUICtrlCreateGroup("Choisir service :", 32, 16, 457, 73)
$IOU = GUICtrlCreateCombo("IOU", 56, 48, 409, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Information : ", 32, 96, 457, 137)
$PRENOM = GUICtrlCreateLabel("Prenom  :", 56, 112, 49, 17)
$IPRENOM = GUICtrlCreateInput("", 208, 112, 257, 21)
$NOM = GUICtrlCreateLabel("Nom :", 56, 144, 32, 17)
$IMON = GUICtrlCreateInput("", 208, 144, 257, 21)
$No = GUICtrlCreateLabel("Nom complet :", 56, 176, 72, 17)
$INOMCOMP = GUICtrlCreateInput("", 208, 176, 257, 21)
$Label7 = GUICtrlCreateLabel("Genre", 56, 208, 36, 17)
$IGENRE = GUICtrlCreateCombo("Monsieur", 208, 208, 257, 25)
GUICtrlSetData(-1, "Madame|Mademoiselle")
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("Identifiant :", 32, 248, 457, 65)
GUICtrlCreateLabel("Utilisateur logon : ", 56, 272, 88, 17)
$ILOGON = GUICtrlCreateInput("", 208, 272, 257, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$group4 = GUICtrlCreateGroup("Mot de passe : ", 32, 328, 457, 65)
$Label1 = GUICtrlCreateLabel("Mot de passe : ", 56, 352, 77, 17)
$IMDP = GUICtrlCreateInput("", 208, 352, 257, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group5 = GUICtrlCreateGroup("Autres Informations :", 32, 408, 457, 153)
$Label2 = GUICtrlCreateLabel("Description : ", 56, 440, 66, 17)
$Label3 = GUICtrlCreateLabel("Bureau : ", 56, 469, 47, 17)
$Label5 = GUICtrlCreateLabel("Téléphone : ", 56, 499, 64, 17)
$Label6 = GUICtrlCreateLabel("E.Mail", 56, 528, 33, 17)
$IDESC = GUICtrlCreateInput("", 208, 440, 257, 21)
$IBUR = GUICtrlCreateInput("", 208, 469, 257, 21)
$ITEL = GUICtrlCreateInput("", 208, 499, 257, 21)
$IMEL = GUICtrlCreateInput("", 208, 528, 257, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$BOK = GUICtrlCreateButton("Créer utilisateur", 405, 584, 83, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_listOU()
While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            _AD_Close()
            Exit


        Case $nMsg = $BOK
            If GUICtrlRead($IOU) = "" Then
                MsgBox(48, "Attention", "Merci de selectionner un OU")
            ElseIf GUICtrlRead($IPRENOM) = "" Then
                MsgBox(48, "Attention", "Le prénom est Obligatoire")
            ElseIf GUICtrlRead($IMON) = "" Then
                MsgBox(48, "Attention", "Le nom est Obligatoire")
            ElseIf GUICtrlRead($INOMCOMP) = "" Then
                MsgBox(48, "Attention", "Le Nom complet est Obligatoire")
            ElseIf GUICtrlRead($ILOGON) = "" Then
                MsgBox(48, "Attention", "Le Logon est Obligatoire")
            ElseIf GUICtrlRead($IMDP) = "" Then
                MsgBox(48, "Attention", "Le Mot de passe est Obligatoire")
            EndIf
                        _newusers()
    EndSelect
WEnd








Func _newusers()
    Global $aOUs = _AD_GetAllOUs()
    $sOU = GUICtrlRead($IOU)
    $sUser = GUICtrlRead($ILOGON)
    $nomaffiche = GUICtrlRead($IMON) & " " & GUICtrlRead($IPRENOM)
    For $i = 1 To $aOUs[0][0] Step 1
        If $aOUs[$i][0] = GUICtrlRead($IOU) Then
            $sOU = $aOUs[$i][1]
        EndIf
    Next
    $iValue = _AD_CreateUser($sOU, $sUser, GUICtrlRead($ILOGON))
    If $iValue = 1 Then
        MsgBox(64, "Information", "l'Utilisateur '" & $sUser & "' à bien été créé dans : '" & $sOU)
    ElseIf @error = 1 Then
        MsgBox(64, "Information", "l'Utilisateur '" & $sUser & "' existe déjà")
        Return ("")
    ElseIf @error = 2 Then
        MsgBox(64, "Information", "l'OU '" & $sOU & "' n'hesite pas")
        Return ("")
    ElseIf @error = 3 Then
        MsgBox(64, "Information", "Value for CN (e.g. Lastname Firstname) is missing")
        Return ("")
    ElseIf @error = 4 Then
        MsgBox(64, "Information", "Value for $sAD_User is missing")
        Return ("")
    Else
        MsgBox(64, "Information", "Erreur '" & @error & "' retournée par l'AD")
        Return ("")
    EndIf
    If GUICtrlRead($IDESC) <> "" Then
        $iValue = _AD_ModifyAttribute($sUser, "description", GUICtrlRead($IDESC))
    EndIf
    If GUICtrlRead($IMEL) <> "" Then
        $iValue = _AD_ModifyAttribute($sUser, "mail", GUICtrlRead($IMEL))
    EndIf
    If GUICtrlRead($ITEL) <> "" Then
        $iValue = _AD_ModifyAttribute($sUser, "TelephoneNumber", GUICtrlRead($ITEL))
    EndIf
    If GUICtrlRead($IBUR) <> "" Then
        $iValue = _AD_ModifyAttribute($sUser, "department", GUICtrlRead($IBUR))
    EndIf
    $iValue = _AD_ModifyAttribute($sUser, "givenName", GUICtrlRead($IPRENOM))
    $iValue = _AD_ModifyAttribute($sUser, "sn", GUICtrlRead($IMON))
    $iValue = _AD_ModifyAttribute($sUser, "displayName", GUICtrlRead($INOMCOMP))
    $iValue = _AD_SetPasswordExpire($sUser, -1)
    $iValue = _AD_AddUserToGroup("HDPMB", $sUser)
    $iValue = _AD_SetPassword($sUser, GUICtrlRead($IMDP))
    If @error = 1 Then
        MsgBox(64, "Information", "Erreur '" & @error & "' retournée par l'AD")
    EndIf
    _clean()

EndFunc   ;==>_newusers

Func _clean()
    GUICtrlSetData($IBUR, "")
    GUICtrlSetData($IDESC, "")
    GUICtrlSetData($ILOGON, "")
    GUICtrlSetData($IMDP, "")
    GUICtrlSetData($IMEL, "")
    GUICtrlSetData($IMON, "")
    GUICtrlSetData($INOMCOMP, "")
    GUICtrlSetData($IPRENOM, "")
    GUICtrlSetData($ITEL, "")
EndFunc   ;==>_clean

Func _listOU()
    Local $listecombo
    Global $aOUs = _AD_GetAllOUs()
    If @error > 0 Then
        MsgBox(64, "Erreur", "Impossible de joindre l'AD")
    Else
        For $i = 1 To $aOUs[0][0] Step 1
            $tempo = StringSplit($aOUs[$i][0], "\")
                $listecombo = $listecombo & "|" & $aOUs[$i][0]
        Next
    EndIf
    GUICtrlSetData($IOU, $listecombo)
EndFunc   ;==>_listOU

[aikiox]

Bonjour,

Script vraiment excellent !
Mais nous cherchons a créer des comptes très rapidements sans taper trop d'information (Profils, mot de passe, changement de mot de passe...ect)

Je le garde de coté !!

Cordialement
Romain

[Yogui]

Le but de ce script est pour nous de ne saisir qu'une seule fois les informations...

Comme je l'ai dit je l'ai vraiment allégé pour le poster ici ... La version "full" tape dans plusieurs bases de données pour créer les utilisateurs (d'où l'obligation d'être le plus complet possible) de plus je pense qu'un AD bien renseigné et bien hiérarchisé est une obligation pour simplifier la mise en place d'application LDAP et plus simplement d'un annuaire téléphonique AD...

[Natsu]

Je n'ai pas comprit le but de ce script et ce qu'est la création de compte AD ^^'
Pouvez-vous m'éclaircir sur le sujet ?

[Yogui]

lorsque l'on travail en entreprise on travail le plus souvent avec un active directory ce qui permet entre autre de créer les utilisateurs de façon global un utilisateur est autoriser à se connecter à tous les ordinateurs de l'entreprise (du domaine) contrairement à l'utilisation domestique ou les compte utilisateurs sont définit par poste (cliques droit sur le poste de travail gérer utilisateur et groupe locaux).

petit lien concernant l'AD:
http://fr.wikipedia.org/wiki/Active_Directory

ou pour le coté libre et gratuit :

http://fr.wikipedia.org/wiki/OpenLDAP (les scripts de ce topic ne fonctionnent pas sous open ldap mais un include existe)

[aikiox]

Bonjour,

Effectivement, nos deux scripts font deux choses differentes.
Le gros avantage du tien, c'est qu'il peut s'adapter dans n'importe quelle architecture AD.

J'ai modifier le script pour créer jusqu'a 10 comptes.

Cordialement
Romain

[Yogui]

ton code un petit peu modifié :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
GUICreate("Création Compte", 680, 80, -1, -1, -1)
$valider = GUICtrlCreateButton("Valider", 610, 50, 55)
GUICtrlCreateLabel("Nom", 110, 10, 75, 17)
GUICtrlCreateLabel("Prenom", 265, 10, 75, 17)
GUICtrlCreateLabel("Compte 1", 20, 26, 45, 17)
GUICtrlCreateLabel("Service", 425, 10, 75, 17)
$nom = GUICtrlCreateInput("", 70, 25, 120, 21)
$prenom = GUICtrlCreateInput("", 230, 25, 120, 21)
$service = GUICtrlCreateCombo("", 390, 25, 120, 21)
GUICtrlSetData(-1, "Direction|Administration|Production 1|Production 2|Informatique", "")

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($valider, "create")
GUICtrlSetState("", $GUI_CHECKED)
GUISetState(@SW_SHOW)


While 1
    Sleep(100)
WEnd

Func create()

    $cnom = GUICtrlRead($nom)
    $cprenom = GUICtrlRead($prenom)
    $cservice = GUICtrlRead($service)


    If $cservice = "Direction" Then
        Run(@ComSpec & " /c " & 'dsadd user cn="' & $cprenom & " " & $cnom & '",ou=Utilisateurs,ou="Service Direction",dc=drinkevol,dc=lan -upn "' & $cprenom & "." & $cnom & '"@drinkevol.lan -ln "' & $cnom & '" -fn "' & $cprenom & '" -display "' & $cprenom & " " & $cnom & '" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
        MsgBox(64, "Compte Créé", $cprenom & " " & $cnom & " a été créé")
        _menage()
        Return ("")
    Else
        If $cservice = "Administration" Then
            Run(@ComSpec & " /c " & 'dsadd user cn="' & $cprenom & " " & $cnom & '",ou=Utilisateurs,ou="Service Administratif",dc=drinkevol,dc=lan -upn "' & $cprenom & "." & $cnom & '"@drinkevol.lan -ln "' & $cnom & '" -fn "' & $cprenom & '" -display "' & $cprenom & " " & $cnom & '" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
            MsgBox(64, "Compte Créé", $cprenom & " " & $cnom & " a été créé")
            _menage()
            Return ("")
        Else
            If $cservice = "Production 1" Then
                Run(@ComSpec & " /c " & 'dsadd user cn="' & $cprenom & " " & $cnom & '",ou=Utilisateurs,ou="Production 1",ou="Service Production",dc=drinkevol,dc=lan -upn "' & $cprenom & "." & $cnom & '"@drinkevol.lan -ln "' & $cnom & '" -fn "' & $cprenom & '" -display "' & $cprenom & " " & $cnom & '" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
                MsgBox(64, "Compte Créé", $cprenom & " " & $cnom & " a été créé")
                _menage()
                Return ("")
            Else
                If $cservice = "Production 2" Then
                    Run(@ComSpec & " /c " & 'dsadd user cn="' & $cprenom & " " & $cnom & '",ou=Utilisateurs,ou="Production 2",ou="Service Production",dc=drinkevol,dc=lan -upn "' & $cprenom & "." & $cnom & '"@drinkevol.lan -ln "' & $cnom & '" -fn "' & $cprenom & '" -display "' & $cprenom & " " & $cnom & '" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
                    MsgBox(64, "Compte Créé", $cprenom & " " & $cnom & " a été créé")
                    _menage()
                    Return ("")
                Else
                    If $cservice = "Informatique" Then
                        Run(@ComSpec & " /c " & 'dsadd user cn="' & $cprenom & " " & $cnom & '",ou=Utilisateurs,ou="Service Informatique",dc=drinkevol,dc=lan -upn "' & $cprenom & "." & $cnom & '"@drinkevol.lan -ln "' & $cnom & '" -fn "' & $cprenom & '" -display "' & $cprenom & " " & $cnom & '" -pwd P@ssw0rd -mustchpwd yes', "", @SW_HIDE)
                        MsgBox(64, "Compte Créé", $cprenom & " " & $cnom & " a été créé")
                        _menage()
                        Return ("")
                    Else
                        MsgBox(64, "ERREUR", "Veuillez selectionner un service")
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndFunc   ;==>create

Func CLOSEClicked()
    Exit
EndFunc   ;==>CLOSEClicked

Func _menage()
    GUICtrlSetData($nom, "")
    GUICtrlSetData($prenom, "")
EndFunc   ;==>_menage

sinon juste pour la forme un case serai plus beau que ces If imbriqué.

Petite astuce pour sortir d'une fonction le return("")

[ricky]

Hello,

Yogui, j'aime beaucoup ton code quelques topics plus haut...

Mais j'ai un problème, je cherche à créer un compte local, je ne vois pas comment faire.

Ce compte doit être admin, je fourni le nom, le descriptif et le mot de passe. Celui-ci ne doit jamais expirer et l'utilisateur ne peut pas le changer. Le but de ce compte est de pouvoir lancer des services sous ce compte. Peux-tu m'aider?

[Yogui]

un truc comme ça ?

Code : Tout sélectionner

Func _CreateAccount($strUserName,$strFullName,$strPassword,$strGroup)
; RETRIEVE Computer Name
Dim $objNetwork, $strComputerName
$objNetwork = ObjCreate("WScript.Network")
$strComputer = $objNetwork.ComputerName
; Code To add User
$objSystem = ObjGet("WinNT://" & $strComputer)
$objUser = $objSystem.Create("user", $strUserName)
$objUser.FullName = $strFullName
$objUser.SetPassword ($strPassword)

;~ Pour Info Voici les différents flags en hexa.
;~ 0x2      Account Disabled
;~ 0x10     Account Locked out
;~ 0x20     Password Not Required
;~ 0x40     Cannot Change Password
;~ 0x10000  Password Never Expires
;~ 0x800000 Password Expired

$objUser.userFlags = 0x10000
$objUser.SetInfo
; Code to add User to Group
$objGroup = ObjGet("WinNT://" & $strComputer & "/" & $strGroup)
$objGroup.Add("WinNT://" & $strUserName)
EndFunc

Je n'ai rien inventé j'ai trouvé ce script sur le forum :

http://www.autoitscript.fr/forum/viewto ... &view=next

[ricky]

Parfait, merci beaucoup, j'ai pas assez bien cherché.

Dernière question, ou puis-je trouver des infos sur : $objUser.? Car j'aimerais rajouter le descriptif et voir les possibilités. J'ai rien trouvé dans le help d'autoit.

[Yogui]

L'aide d'autoit ne peux pas grand chose pour toi il faut aller à la pèche du coté de microsoft l'objet étant un objet windows.

par contre si la structure et la même que pour un AD la description doit être :

$objUser.description= "test"

Mais sans aucune garantie

[ricky]

Merci yogui, c'est tout à fait ça!

J'ai trouvé un code pour énumérer les comptes, mais je n'arrive pas à le traduire en auto-it, qqn peut m'aider :

Code : Tout sélectionner

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
    Wscript.Echo objUser.Name 
Next

Merci d'avance

[Yogui]

Code : Tout sélectionner

$colAccounts = ObjGet("WinNT://" & @ComputerName)
$colAccounts.Filter ="user"
MsgBox(0, "", IsArray($colAccounts))
For $objUser In $colAccounts
    MsgBox(0, "Liste des utilisateurs", $objUser.Name)
Next

Par contre je pense qu'il serai pas mal d'ouvrir de nouveau topic pour ces demandes afin de facilité la recherche sur le forum

[ricky]

Je trouve que ça va avec. Merci beaucoup pour ton aide.

[aikiox]

Bonjour,

Me revoila,

Voici la création de compte AD a partir d'un fichier EXCEL.

Code : Tout sélectionner

[spoiler=]#include <Excel.au3>
$fichier = @ScriptDir & "\comptead.xls"

If FileExists(@ScriptDir&"\compteAD.xls") = 1 Then
_ExcelBookOpen($fichier)
$oExcel = ObjGet("","Excel.Application")
$oExcel.SheetsInNewWorkbook = 1
$oExcel.Visible = 0



for $i = 0 to 100 step 1
$nom = $oExcel.Activesheet.Cells(1+$i,1).Value
$prenom = $oExcel.Activesheet.Cells(1+$i,2).Value
$fonction = $oExcel.Activesheet.Cells(1+$i,3).Value


select
case    $fonction = "Direction"
Run(@ComSpec & " /c " & 'dsadd user cn="'&$prenom&" "&$nom&'",ou=Utilisateurs,ou="Service Direction",dc=drinkevol,dc=lan -upn "'&$prenom&"."&$nom&'"@drinkevol.lan -ln "'&$nom&'" -fn "'&$prenom&'" -display "'&$prenom&" "&$nom&'" -pwd '&StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456"&' -profile "\\evodeb1\profils\'&$prenom&"."&$nom&'" -hmdir \\evodeb1\commun\ -hmdrv U: -memberof cn=Direction,ou=Utilisateurs,ou="Service Direction",dc=drinkevol,dc=lan -samid '&$prenom&"."&$nom&' -mustchpwd yes', "", @SW_HIDE)
MsgBox(0,"Direction", $prenom&" "&$nom&" fait partie de la Direction",1)

Case $fonction = "Administration"
Run(@ComSpec & " /c " & 'dsadd user cn="'&$prenom&" "&$nom&'",ou=Utilisateurs,ou="Service Administratif",dc=drinkevol,dc=lan -upn "'&$prenom&"."&$nom&'"@drinkevol.lan -ln "'&$nom&'" -fn "'&$prenom&'" -display "'&$prenom&" "&$nom&'" -pwd '&StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456"&' -profile "\\evodeb1\profils\'&$prenom&"."&$nom&'" -hmdir \\evodeb1\commun\ -hmdrv U: -memberof cn=Administration,ou=Utilisateurs,ou="Service Administratif",dc=drinkevol,dc=lan -samid '&$prenom&"."&$nom&' -mustchpwd yes', "", @SW_HIDE)
MsgBox(0,"Administration", $prenom&" "&$nom&" fait partie de l'Administration",1)

case $Fonction = "Production 1"
Run(@ComSpec & " /c " & 'dsadd user cn="'&$prenom&" "&$nom&'",ou=Utilisateurs,ou="Production 1",ou="Service Production",dc=drinkevol,dc=lan -upn "'&$prenom&"."&$nom&'"@drinkevol.lan -ln "'&$nom&'" -fn "'&$prenom&'" -display "'&$prenom&" "&$nom&'" -pwd '&StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456"&' -profile "\\evodeb1\profils\'&$prenom&"."&$nom&'" -hmdir \\evodeb1\commun\ -hmdrv U: -memberof cn=Production1,ou=Utilisateurs,ou="Production 1",ou="Service Production",dc=drinkevol,dc=lan -samid '&$prenom&"."&$nom&' -mustchpwd yes', "", @SW_HIDE)
MsgBox(0,"Production 1", $prenom&" "&$nom&" fait partie de la Production 1",1)

case $Fonction = "Production 2"
Run(@ComSpec & " /c " & 'dsadd user cn="'&$prenom&" "&$nom&'",ou=Utilisateurs,ou="Production 2",ou="Service Production",dc=drinkevol,dc=lan -upn "'&$prenom&"."&$nom&'"@drinkevol.lan -ln "'&$nom&'" -fn "'&$prenom&'" -display "'&$prenom&" "&$nom&'" -pwd '&StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456"&' -profile "\\evodeb1\profils\'&$prenom&"."&$nom&'" -hmdir \\evodeb1\commun\ -hmdrv U: -memberof cn=Production2,ou=Utilisateurs,ou="Production 2",ou="Service Production",dc=drinkevol,dc=lan -samid '&$prenom&"."&$nom&' -mustchpwd yes', "", @SW_HIDE)
MsgBox(0,"Production 2", $prenom&" "&$nom&" fait partie de la Production 2",1)

case $Fonction = "Informatique"
Run(@ComSpec & " /c " & 'dsadd user cn="'&$prenom&" "&$nom&'",ou=Utilisateurs,ou="Service Informatique",dc=drinkevol,dc=lan -upn "'&$prenom&"."&$nom&'"@drinkevol.lan -ln "'&$nom&'" -fn "'&$prenom&'" -display "'&$prenom&" "&$nom&'" -pwd '&StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456"&' -profile "\\evodeb1\profils\'&$prenom&"."&$nom&'" -hmdir \\evodeb1\commun\ -hmdrv U: -memberof cn=Technique,ou=Utilisateurs,ou="Service Informatique",dc=drinkevol,dc=lan -samid '&$prenom&"."&$nom&' -mustchpwd yes', "", @SW_HIDE)
MsgBox(0,"Informatique", $prenom&" "&$nom&" fait partie de la Informatique",1)

EndSelect
Next
Else
msgbox(64,"ERREUR","Le fichier CompteAD.xls n'est pas présent dans "&@ScriptDir)
EndIf
ProcessClose("Excel.exe")[/spoiler]

Cordialement
Romain

[Tlem]

Je n'ai fait que survolé ce sujet. Mais en 'réponse' au script du premier message, le voici quelque peut amélioré dans l'écriture.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

Global $cnom, $cprenom

GUICreate("Création Compte", 680, 80, -1, -1, -1)
$valider = GUICtrlCreateButton("Valider", 610, 50, 55)
GUICtrlCreateLabel("Nom", 110, 10, 75, 17)
GUICtrlCreateLabel("Prenom", 265, 10, 75, 17)
GUICtrlCreateLabel("Compte 1", 20, 26, 45, 17)
GUICtrlCreateLabel("Service", 425, 10, 75, 17)
$nom = GUICtrlCreateInput("", 70, 25, 120, 21)
$prenom = GUICtrlCreateInput("", 230, 25, 120, 21)
$service = GUICtrlCreateCombo("", 390, 25, 120, 21)
GUICtrlSetData(-1, "Direction|Administration|Production 1|Production 2|Informatique", "")

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($valider, "create")
GUICtrlSetState("", $GUI_CHECKED)
GUISetState(@SW_SHOW)


While 1
    Sleep(100)
WEnd

Func create()
    Local $cservice = GUICtrlRead($service)
    Local $Cmd1 = @ComSpec & " /c " & 'dsadd user cn="' & $cprenom & " " & $cnom & '",ou=Utilisateurs,ou="'
    Local $Cmd2 = '",dc=drinkevol,dc=lan -upn "' & $cprenom & "." & $cnom & '"@drinkevol.lan -ln "' & $cnom & '" -fn "' & $cprenom & '" -display "' & $cprenom & " " & $cnom & '" -pwd P@ssw0rd -mustchpwd yes'

    $cnom = GUICtrlRead($nom)
    $cprenom = GUICtrlRead($prenom)

    Select

        Case $cservice = "Direction"
            Run($Cmd1 & "Service Direction" & $Cmd2, "", @SW_HIDE)
            _Message()

        Case $cservice = "Administration"
            Run($Cmd1 & "Service Administratif" & $Cmd2, "", @SW_HIDE)
            _Message()

        Case $cservice = "Production 1"
            Run($Cmd1 & "Production 1" & $Cmd2, "", @SW_HIDE)
            _Message()

        Case $cservice = "Production 2"
            Run($Cmd1 & "Production 2" & $Cmd2, "", @SW_HIDE)
            _Message()

        Case $cservice = "Informatique"
            Run($Cmd1 & "Service Informatique" & $Cmd2, "", @SW_HIDE)
            _Message()

        Case Else
            MsgBox(64, "ERREUR", "Veuillez selectionner un service")
            Return

    EndSelect
    Exit
EndFunc   ;==>create

Func CLOSEClicked()
    Exit
EndFunc   ;==>CLOSEClicked

Func _Message()
    MsgBox(64, "Compte Créé", $cprenom & " " & $cnom & " a été créé")
EndFunc

AutoIt permet de limiter certaine répétition de code, ou redondance. Alors autant en profiter.

[aikiox]

Effectivement, je vais m'y pencher dessus

Merci

[aikiox]

Bonjour,

Je reviens vers vous car j'ai modifié le code.

Nous avons en plus du code, un fichier excel nommé : comptead.xls

Il y a trois colonne :

_______________________
| Nom | Prénom | Service |
_______________________


Maintenant il vérifie si :

-Le fichier excel est présent ou non

- Compte le nombre de case active

- Vérifie s'il y a quelque chose d'écrit dans la colonne nom et prénom

- Vérifie la colonne service en affichant un message d'erreur s'il y a quelque chose d'écrit autre qu' "Administration","Direction","Informatique","Production 1", "Production 2".

- Supprime les espaces dans le nom et prénom

- Il crée le compte puis affiche un message d'information si le compte est bien crée ou existe ou erreur.

- A la fin, il affiche le nombre de compte crée correctement.


Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <Excel.au3>
#include <AD.au3>
$fichier = @ScriptDir & "\comptead.xls"
$fin = 0
If not FileExists(@ScriptDir&"\compteAD.xls") = 1 Then
    msgbox(64,"ERREUR","Le fichier CompteAD.xls n'est pas présent dans "&@ScriptDir)

    Else
    ProcessClose("Excel.exe")
    _ExcelBookOpen($fichier)
    $oExcel = ObjGet("","Excel.Application")
    $oExcel.SheetsInNewWorkbook = 1
    $oExcel.Visible = 0
    $nb_ligne   = $oExcel.ActiveSheet.UsedRange.Rows.Count


        for $i = 1 to $nb_ligne-1 step 1
            $nom = $oExcel.Activesheet.Cells(1+$i,1).Value
            $prenom = $oExcel.Activesheet.Cells(1+$i,2).Value
            $fonction = $oExcel.Activesheet.Cells(1+$i,3).Value


            if not $nom = true then
                msgbox(0,"Erreur Nom "," La cellule "&$i+1& " est vide dans la colonne nom")
                exit
            elseif not $prenom = true Then
                msgbox(0,"Erreur Prenom","La cellule "&$i+1& " est vide dans la colonne prenom")
                Exit

            EndIf


            if not (($fonction = "Direction") or ($fonction = "Administration") or ($fonction = "Production 1") or ($fonction = "Production 2") or ($fonction = "Informatique")) Then
                msgbox(0,"Erreur Service","La cellule "&$i+1& " n'est saisie correctement dans la colonne service")
                exit
            endif

        next

            for $i = 1 to $nb_ligne-1 step 1
                $nom = $oExcel.Activesheet.Cells(1+$i,1).Value
                $prenom = $oExcel.Activesheet.Cells(1+$i,2).Value
                $fonction = $oExcel.Activesheet.Cells(1+$i,3).Value
                $ncomplet = $prenom&" "&$nom
                $upn = StringReplace($prenom&"."&$nom," ","")

                if $fonction = "Direction" Then
                    $ou = 'OU=Utilisateurs,OU=Service Direction,DC=drinkevol,DC=lan'
                    $groupe = 'CN=Direction,'&$ou
                    desc()

                elseif $fonction = "Administration" Then
                    $ou = 'OU=Utilisateurs,OU=Service Administratif,DC=drinkevol,DC=lan'
                    $groupe = 'CN=Administration,'&$ou
                    desc()

                elseif $fonction = "Informatique" Then
                    $ou = 'OU=Utilisateurs,OU=Service Informatique,DC=drinkevol,DC=lan'
                    $groupe = 'CN=Technique,'&$ou
                    desc()

                elseif $fonction = "Production 1" Then
                    $ou = 'OU=Utilisateurs,OU=Production 1,OU=Service Production,DC=drinkevol,DC=lan'
                    $groupe = 'CN=Production1,'&$ou
                    desc()

                elseif $fonction = "Production 2" Then
                    $ou = 'OU=Utilisateurs,OU=Production 2,OU=Service Production,DC=drinkevol,DC=lan'
                    $groupe = 'CN=Production2,'&$ou
                    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,1)

;~                              $iValue = _AD_ModifyAttribute($sUser, "description", "Description")
;~                              $iValue = _AD_ModifyAttribute($sUser, "mail", "email")
                                $iValue = _AD_ModifyAttribute($upn, "givenName", $prenom)
                                $iValue = _AD_ModifyAttribute($upn, "sn", $nom)
                                $iValue = _AD_ModifyAttribute($upn, "displayName", $ncomplet)
                                $iValue = _AD_ModifyAttribute($upn, "profilepath", "\\evodrink\Profils\"&$upn)
                                $iValue = _AD_AddUserToGroup($groupe, $upn)
                                $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)

                                ElseIf @error = 1 Then
                                    MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' est déja existant",1)
;~                              ElseIf @error = 2 Then
;~                                  MsgBox(64, "Création du compte de '"&$ncomplet&"'", "OU '" & $ou & "' does not exist")
;~                              ElseIf @error = 3 Then
;~                                  MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Value for CN (e.g. Lastname Firstname) is missing")
;~                              ElseIf @error = 4 Then
;~                                  MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Value for $sAD_User is missing")
                                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)",2)

Si vous avez des modifications, je suis preneur.

Cordialement
Romain