PowerShellでインストールされているフォントの一覧を表示する

[void][reflection.assembly]::LoadWithPartialName("System.Drawing")
$FontFamilies = [System.Drawing.FontFamily]::Families

$Html = "<table>"
foreach ($Font in $FontFamilies) {
  $Html += "<tr>"
  $Html += "<td>" + $Font.Name + "</td>" + "<td style=`"font-size:20px; font-family:" + $Font.Name + "`">フォントのサンプル表示ABCDEF0123456789</td>"
  $Html += "</tr>"
}
$Html +="</table>"

$IE = New-Object -com InternetExplorer.Application
$IE.Navigate("about:blank")
while ($IE.Busy) {
  Sleep -MilliSeconds 100
}
$IE.Visible = $True

$IE.Document.Write($Html)
$IE.Document.Close()

$IE