User Gruppen auslesen via Excel ausgeben

# Load AD Module
Import-Module ActiveDirectory
# filepath with data
$file = 'D:\Users.xlsx'  
if(!(Test-Path $file)){
    Write-Error "Excel File '$file' does not exist." -Category ObjectNotFound  
    return
}
write-host "Processing Users, please wait ... " -NoNewline  
# create excel com object (installed excel required)
$objXL = New-Object -Com Excel.Application -EA Stop
# disable dialogs/alerts
$objXL.DisplayAlerts = $false
# open workbook
$wb = $objXL.Workbooks.Open($file)
# data is on sheet 1
$ws = $wb.Sheets.Item(1)
# get range of groups (headers B1:Bx)
$rngGroups = $ws.Range("B1",$ws.Range("B1").End(-4161))  
# Start of output range
$rngOut = $ws.Range("A2")  
# first clear users range
$ws.UsedRange.Offset(1,0).ClearContents() | out-null
# itterate AD Users
Get-ADUser -Filter * | %{
    # write username in column A
    $rngOut.Value() = $_.SamAccountName
    # get users group membership
    $groups = Get-ADPrincipalGroupMembership $_.SamAccountName | select -Expand Name
    # Compare groups in sheet with membership of users and place x in the matching column
    $rngGroups | ?{$_.Value() -in $groups} | %{
        # output cell
        $rngOutCell = $rngOut.Offset(0,$_.Column -1)
        # write x in cell
        $rngOutCell.Value() = "x"  
        # center content of cell horizontal
        $rngOutCell.HorizontalAlignment = -4108
    }
    # move output range one row further
    $rngOut = $rngOut.Offset(1,0)
}
# make Excel visible
$objXL.Visible = $true
# enable dialogs/alerts
$objXL.DisplayAlerts = $true
write-host "Finished." -F Green  
# free com ressources
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($objXL) | out-null