インストール済みフォントの一覧を取得する: Win32_FontInfoAction
■Topics
インストール済みフォントの一覧を取得するサンプルです。Win32_FontInfoActionクラスを使用します。
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
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
実行すると現在インストールされているフォントのファイル名を一覧表示します。
フォントが組み込まれているか確認するのに有効です。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。