- 追加された行はこの色です。
- 削除された行はこの色です。
#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
- hfVqAW <a href="http://pfdrblnaroti.com/">pfdrblnaroti</a>, [url=http://xjyvcjdrskwc.com/]xjyvcjdrskwc[/url], [link=http://czktjobeyoou.com/]czktjobeyoou[/link], http://jlweqkfbeist.com/ -- [[ornsygon]] &new{2011-11-05 (土) 07:41:47};
#comment
//#comment