Custom File Properties auslesen

<# 
.SYNOPSIS
    Get Excel Document Custom Properties

.DESCRIPTION 
    Scrip to open excel files and read the custom properties

.COMPONENT 
    No other powershell module needed
#>

# Function to get Office Document Custom Properties
function Get-OfficeDocCustomProperties {
    [OutputType([HashTable])]
    Param
    (
         [Parameter(Mandatory=$true, Position=2)]
         [System.__ComObject] $Document
    )
 
    $result = @{}
    $binding = "System.Reflection.BindingFlags" -as [type]  
    $properties = $Document.CustomDocumentProperties
    foreach($property in $properties)
    {
        $pn = [System.__ComObject].invokemember("name",$binding::GetProperty,$null,$property,$null)  
        trap [system.exception]
        {
            continue
        }
        $result.Add($pn, [System.__ComObject].invokemember("value",$binding::GetProperty,$null,$property,$null))  
    }
 
    return $result
}

# Parameters
$Folder = "\\xxxx\xxxx\xxxx"  
$LogFile = "C:\temp\MSIP_Files.txt"  

# Get all Excel-Files
$Files = Get-ChildItem -LiteralPath $folder -File -Recurse -Filter *.xls*

# Create Excel Object
$excel = New-Object -Com Excel.Application

# File loop to get custom properties
foreach($file in $Files){

    Write-Host "Processing: "$file.FullName  

    # Open Workbook read-only
    $wb = $excel.Workbooks.Open($file.FullName, $null, $true)

    # Get Custom Properties
    $CustomProperties = ""  
    $CustomPropertiesKey = ""  
    $CustomProperties = Get-OfficeDocCustomProperties $wb

    #O utput Custom Properties
    $CustomProperties | ft -AutoSize

    # Check if MSIP-Label in custom prperty key
    foreach($CustomPropertiesKey in $CustomProperties.Keys){
        if($CustomPropertiesKey -like "MSIP_Label_*"){  

            # Finding MSIP_Label -> output filname to Logfile -> break foreach and process nex file
            $file.FullName | Out-File $LogFile -Append
            break
        }
    }
    # Close Workbook (not Excel App)
    $wb.Close()
}

# Close Excel
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)