インストール済みフォントの一覧を取得する: Win32_FontInfoAction - WMI Sample (VB)

Private Sub Command1_Click()

Dim FiaSet As SWbemObjectSet
Dim Fia As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set FiaSet = Service.ExecQuery("Select * From Win32_FontInfoAction")

For Each Fia In FiaSet

MesStr = MesStr & Fia.File & ";"

Next

MsgBox "インストールされているフォントの一覧です。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & vbCrLf & "ですよ。"

Set FiaSet = Nothing
Set Fia = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub