インストール済みのフォントを見やすく一覧するPowerShellスクリプト（日本語対応版）

PowerShell

フォントを選ぶときに簡単に一覧を出したいと思い調べてみたら、インストール済みのフォントの一覧をIEブラウザに一覧してくれる大変便利なスクリプトが見つかりました。

https://technet.microsoft.com/en-us/library/ff730944.aspx

　 ただ、これだと日本語特有のひらがな、カタカナ、漢字に対応できなかったので、少しだけ改造してみました。 　

$Hiragana  = "あいうえお"
$Katakana  = "かきくけこ"
$Kanji     = "亜伊宇絵尾"
$Eigo      = "AIUEO"

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$objFonts = New-Object System.Drawing.Text.InstalledFontCollection
$colFonts = $objFonts.Families

$objIE = New-Object -com "InternetExplorer.Application"
$objIE.Navigate("about:blank")
$objIE.ToolBar = 0
$objIE.StatusBar = 0
$objIE.Visible = $True

$objDoc = $objIE.Document.DocumentElement.LastChild 
$strHTML = ""
$strHTML += '<table border="1" cellspacing="0" bordercolor="#000000" align="left">'
foreach ($objFont in $colFonts)
    {
        $style =    "style=`"font-size : 15px; font-family : $($objFont.Name)`""
        $strHTML += "<tr><td>$($objFont.Name)</td>"
        $strHTML += "<td $style>$Hiragana</td>"
        $strHTML += "<td $style>$Katakana</td>"
        $strHTML += "<td $style>$Kanji</td>"
        $strHTML += "<td $style>$Eigo</td>"
        $strHTML += "</tr>"
    }
$strHTML += "</table>"


$objDoc.InnerHTML = $strHTML

　 　

きれいに表示されました！ これで今後はフォント選びが楽になりそうです。