1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
| # Affiche les Groupes GG - DL
# On se positionne sur la 6° feuille de notre document Excel
$Sheet = $WorkBook.Worksheets.Item(6)
$ligne = 4
$col= 2
$Sheet.Cells.Item($ligne-2,$col+1) = "Liste des Groupes GG - DL"
#fonction mise en forme dans excel
mise-en-forme-entete-gg-dl
# on fusionne les cellules 2.1 ==> 2.3
$Range = $Sheet.Range($Sheet.Cells.Item(2,1),$Sheet.Cells.Item(2,3))
$Range.MergeCells = $true
#liste les DL en enlevant le dossier "Users" et les affiche verticalement
$tab = @()
$ou = Get-ADOrganizationalUnit -filter * -SearchScope OneLevel | sort-Object
Foreach ( $k in $ou)
{
if ($k.name -ne $null -and $k.name -ne "Domain Controllers")
{
$x = Get-ADGroup -Filter { GroupScope -Eq "domainlocal"} -SearchBase $k.DistinguishedName | sort-object
foreach ($l in $x)
{
if ($l.name -ne $null)
{
$tab += $l.name
$Sheet.Cells.Item($ligne,$col) = $l.name
mise-en-forme-donnes
$col++
}
}
}
}
# on cherche les membres des DL ..
$ligneenfant = 5
$colenfant = 2
write-host $tab
ForEach ( $i in $tab)
{
$enfantsdl = Get-ADGroupMember -Identity $i | sort-object
write-host $enfantsdl
foreach( $z in $enfantsdl)
{
if ($z.name -ne $null)
{
$Sheet.Cells.Item($ligneenfant,$colenfant) = $z.name
$ligneenfant++
$colenfant++
}
}
} |
Partager