その他

WMI

サンプル

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

添付ファイル: fileShowFontList.vbs 590件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2011-12-10 (土) 17:57:16 (3598d)