Export Exchange security group members

Get-ExchangeSecurityGroupsNestedMembers.ps1

# This script exports all Exchange security groups that have members
# Empty groups are not included in the CSV output.

# Your domain DN
$Domain = 'DC=varunagroup,DC=de'

# Preferred domain controller FQDN
$DomainControllerFQDN = 'testms01.varunagroup.de'

# Fetch Exchange security groups
$ExchangeSecurityGroups = Get-ADGroup -SearchBase ('OU=Microsoft Exchange Security Groups,{0}' -f $Domain ) -Server ('{0}:3268' -f $DomainControllerFQDN) -Filter *

Write-Host ('{0} Exchange Security Groups found' -f ($ExchangeSecurityGroups | Measure-Object).Count ) 

# Helper variables
$ScriptDir = Split-Path -Path $script:MyInvocation.MyCommand.Path
$Result=@()

# Fetch members for each Exchange security group
foreach($Group in $ExchangeSecurityGroups) {

        Write-Host $Group -ForegroundColor Gray
        $GroupMembers = 0
        $GroupMembers = Get-ADGroupMember $Group.DistinguishedName -Recursive -Server $DomainControllerFQDN
        foreach($GroupMember in $GroupMembers) {
           Write-Host $GroupMember -ForegroundColor Green
           $Object = New-Object System.Object | select GroupName, UserName, UserDN
           $Object.GroupName = $Group.Name
           $Object.UserName = $GroupMember.Name
           $Object.UserDN = $GroupMember.DistinguishedName
           $Result += $Object
    }
}

if(($Result | Measure-Object).Count -gt 0) {

    $Result | Export-Csv -Path ('{0}\ExchangeSecurityGroupMembers.csv' -f $ScriptDir) -Encoding UTF8 -Delimiter ';' -NoTypeInformation -Force
}