Untitled
unknown
plain_text
3 years ago
1.6 kB
4
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...