Memo/2004-12-02

その他 †

WMI †

サンプル †

• インストールされているフォントの一覧を取得するサンプル
  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