Memo/2004-12-02 のバックアップソース(No.3)

#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};
- csfxmdy31, <a href="http://www.fooipidlsx.com">wjtyqaarnk</a> , [url=http://www.qdqnbeyykb.com]eznxkmnbrf[/url], http://www.pmpcouhbaa.com wjtyqaarnk -- [[xaftdmarfh]] &new{2011-11-09 (水) 00:59:05};

#comment