1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| sEmail est une chaîne = Gauche(SAI_pNomEmploye,1) +SAI_NomEmploye // On met les élément dont on aura besoin lors de la création d'utilisateur dans l'AD dans des variables (initiales,adresse mail).
sInitiales est une chaîne = Gauche(SAI_pNomEmploye,1) + Gauche(SAI_NomEmploye ,1)
sCritèreSamAccountName est une chaîne = "(samaccountname="+sInitiales+")"
sCheminScript est une chaîne = "C:\MesSites\CCIManager\scriptCreationAD_"+SAI_NomEmploye+".ps1"
HExécuteRequête(REQ_CheminAD,hRequêteDéfaut,SAI_typeContrat,SAI_Entite) //requête permettant de recuperer le dn de l'AD ou sera crée l'utilisateur selon son contrat et son entité
HLitPremier(REQ_CheminAD)
FichierVersPage()
sCheminAd est une chaîne = REQ_CheminAD.dnAD
SI (LDAPRecherche("ConnexionADCCI","dc=cci-57,dc=fr",sCritèreSamAccountName) = "") ALORS //vérification si il n'existe pas deja un compte avec les memes initiales pour le samaccountname
sCriptAjoutAD est une chaîne = fChargeTexte("C:\MesSites\CCIManager\ScriptQad.txt") // On récupère le script de base non paramétré qu'on met dans une chaine
sCriptAjoutAD = Remplace(sCriptAjoutAD,"prenomNom","'"+SAI_pNomEmploye +" "+SAI_NomEmploye+"'") //puis on remplace les noms des variables par leur valeur précedemment remplies dans le formulaire
sCriptAjoutAD = Remplace(sCriptAjoutAD,"nom","'"+SAI_NomEmploye+"'")
sCriptAjoutAD = Remplace(sCriptAjoutAD,"fax","'"+SAI_FaxCollaborateur+"'")
sCriptAjoutAD = Remplace(sCriptAjoutAD,"Initiales","'"+sInitiales+"'") //Les guillemets sont la pour rajouter les cotes dans le script
sCriptAjoutAD = Remplace(sCriptAjoutAD,"email","'"+sEmail+"@cci-57.fr'")
sCriptAjoutAD = Remplace(sCriptAjoutAD,"dnAD","'"+sCheminAd+"'")
sCriptAjoutAD = Remplace(sCriptAjoutAD,"telephone","'"+SAI_TelephoneFixe+"'")
sCriptAjoutAD =Remplace(sCriptAjoutAD,"Fonction","'"+SAI_Fonction+"'")
nIDFichier est un entier = fCrée(sCheminScript) // et on finit par créer un nouveau fichier, cette fois ci au format .ps1
fEcritLigne(nIDFichier,sCriptAjoutAD)// auquel on rajoute la chaine transformée précedemment
fFerme(nIDFichier)
LanceAppliAssociée(sCheminScript) //puis on lance l'application avec Powershell |
Partager