Windows Script Host(WSH)で、ＰＣにインストールされているフォントの一覧を取得する方法はありませんか？

インストールされているフォントの一覧を取得するサンプル（VBScript）です。

WMI を使用しています。

’ FileName : ShowFontList.vbs

’ Usage : CScript ShowFontList.vbs //Nologo

ShowFontList

Sub ShowFontList()

On Error Resume Next

strComputer = ”.”

Set objWMIService = GetObject(”winmgmts:￥￥” & strComputer & ”￥root￥cimv2”)

Set colItems = objWMIService.ExecQuery(”Select * from Win32_FontInfoAction”,,48)

For Each objItem in colItems

Wscript.Echo ”ActionID: ” & objItem.ActionID

Wscript.Echo ”Caption: ” & objItem.Caption

Wscript.Echo ”Description: ” & objItem.Description

Wscript.Echo ”Direction: ” & objItem.Direction

Wscript.Echo ”File: ” & objItem.File

Wscript.Echo ”FontTitle: ” & objItem.FontTitle

Wscript.Echo ”Name: ” & objItem.Name

Wscript.Echo ”SoftwareElementID: ” & objItem.SoftwareElementID

Wscript.Echo ”SoftwareElementState: ” & objItem.SoftwareElementState

Wscript.Echo ”TargetOperatingSystem: ” & objItem.TargetOperatingSystem

Wscript.Echo ”Version: ” & objItem.Version

Next

End Sub

参考情報です。

参考情報です。

（Win32_FontInfoAction のサンプルが掲載されています。）