Get-Installed-Fonts.ps1

# https://powershell.org/forums/topic/listing-font-details/
$folder = "$env:windir\fonts\"

$objShell = New-Object -ComObject Shell.Application

$fileList = @()
$attrList = @{}
$details = @()
# $details = (
#     "Title",
#     "Font style",
#     "Show/hide", 
#     "Designed for",
#     "Category",
#     "Designer/foundry" ,
#     "Font Embeddability",
#     "Font type",
#     "Family",
#     "Date created",
#     "Date modified",
#     "Collection",
#     "Font file names",
#     "Font version"
# )

# figure out what the possible metadata is
$objFolder = $objShell.namespace($folder)
for ($attr = 0; $attr -le 500; $attr++) {
    $attrName = $objFolder.getDetailsOf($objFolder.items, $attr)
    if ( $attrName -and ( -Not $attrList.Contains($attrName) )) {
        $attrList.add( $attrName, $attr )
    }
}

# $attrList
$details = $attrlist.GetEnumerator() | Select-Object -ExpandProperty Name

# loop through all the fonts, and process
$objFolder = $objShell.namespace($folder)
# $objFolderItems = $objFolder.Items() && $objFolderItems | Format-Table -AutoSize
# $itemCount = $objFolder.Items().Count
foreach ($file in $objFolder.items()) {
    foreach ( $attr in $details) {
        $attrValue = $objFolder.getDetailsOf($file, $attrList[$attr])
        if ( $attrValue ) {
            Add-Member -InputObject $file -MemberType NoteProperty -Name $attr -value $attrValue
        }
    }
    $fileList += $file
    write-verbose "Prcessing file number $($fileList.Count)..."
}

$fileList | Select-Object $details | out-gridview