#contents *その他 [#y07bcb6e] **WMI [#wc5c4080] ***サンプル [#ia504010] -インストールされているフォントの一覧を取得するサンプル #ref(ShowFontList.vbs) ' 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 -実行例 D:\home\edu\hatena\masal>CScript ShowFontList.vbs //Nologo ActionID: BATANG.TTC{90110411-6000-11D3-8CFE-0050048383C9} Caption: Description: Direction: File: BATANG.TTC FontTitle: Name: SoftwareElementID: SoftwareElementState: TargetOperatingSystem: Version: : (以下略) -はてな --http://www.hatena.ne.jp/1102577673 #comment