Untitled
unknown
plain_text
2 years ago
1.6 kB
3
Indexable
$server = "192.168.1.212" #Adresse du serveur AD $DN = (get-addomain -Server $server).dnsroot $commun = "\\192.168.1.212\commun\01_Espace Collaboratif\01_Projets-Systemes-Direction" # Emplacement du fichier Excel à importer Set-Location $commun # On se place dedans $Excel = Open-ExcelPackage -Path '.\Personnels.xlsx' # La variable $Excel ouvre le fichier Excel Personnels $O_Registre = $Excel.Workbook.Worksheets['Registre'] # On se place sur l'onglet contenant la liste du personnel $Raw_Names = $O_Registre.SelectedRange['C2:C350'].Value # Valeur des Noms et Prénoms #$Raw_Names = $O_Registre.SelectedRange['C2:C12'].Value Foreach ($fullname in $Raw_Names) { $nom,$prenom = $fullname.split(" ") #Write-Host $prenom $SAM = ($prenom.substring(0,1)+"."+$nom).ToLower() if(!(Get-ADUser -Server $server -Filter {samaccountname -eq $SAM})){ # Test si l'utilisateur n'existe pas Write-Host "Création de $SAM !" -ForegroundColor Green # Alors on le créé New-ADUser -Server $server ` -Name "$prenom $nom" ` -DisplayName "$nom $prenom" ` -GivenName "$prenom" ` -Surname "$nom" ` -SamAccountName $SAM ` -UserPrincipalName $SAM+"@"+$DN ` -Path "OU=sansgroupe,OU=Employes,OU=GPA,DC=gpa,DC=local" ` -AccountPassword (ConvertTo-SecureString ("Gpa1"+($nom).ToLower()+"!") -AsPlainText -Force) ` -ChangePasswordAtLogon $true ` -Enabled $true } else { # Sinon ne fait rien Write-Host "$SAM existe déjà !" -ForegroundColor Red } }
Editor is loading...