Powershell Get All AD Groups with Membership

#// Start of script Export AD Groups with Membership
#// Get Dte for File
$DateTime = Get-Date -f "yyyy-MM"   
 
#// Define CSV Filename
$CSVFile = "C:\scripts\groups\AD_Groups"+$DateTime+".csv"   
 
#// Create emy array for CSV data 
$CSVOutput = @() 
 
#// Get all AD groups in the domain 
$ADGroups = Get-ADGroup -Filter * -Properties description
 
#// Set progress bar variables 
$i=0 
$tot = $ADGroups.count 
 
foreach ($ADGroup in $ADGroups) { 
    #// Set up progress bar 
    $i++ 
    $status = "{0:N0}" -f ($i / $tot * 100)   
    Write-Progress -Activity "Exporting AD Groups" -status "Processing Group $i of $tot : $status% Completed" -PercentComplete ($i / $tot * 100)   
 
    #// Ensure Members variable is empty 
    $Members = ""   
 
    #// Get group members which are also groups and add to string 
    $MembersArr = Get-ADGroup -filter {Name -eq $ADGroup.Name} | Get-ADGroupMember |  select Name 
    if ($MembersArr) { 
        foreach ($Member in $MembersArr) { 
            $Members = $Members + "," + $Member.Name   
        } 
        $Members = $Members.Substring(1,($Members.Length) -1) 
    } 
 
    #// Set up hash table and add values 
    $HashTab = $NULL 
    $HashTab = [ordered]@{ 
        "Name" = $ADGroup.Name   
        "Category" = $ADGroup.GroupCategory   
        "Scope" = $ADGroup.GroupScope   
        "Members" = $Members  
        "Beschreibung" = $ADGroup.description  
    } 
 
    #// Add hash table to CSV data array 
    $CSVOutput += New-Object PSObject -Property $HashTab 
} 
 
#// Export to CSV files 
$CSVOutput | Sort-Object Name | Export-Csv $CSVFile -NoTypeInformation -Encoding UTF8
 
#// End of script