Windows Script Host(WSH)で、PCにインストールされているフォントの一覧を取得する方法はありませんか?

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/12/09 16:34:33
  • 終了:--

回答(1件)

id:cx20 No.1

cx20回答回数607ベストアンサー獲得回数1082004/12/09 17:56:19

ポイント40pt

インストールされているフォントの一覧を取得するサンプル(VBScript)です。

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

http://wmifun.atinfinity.net/wmisample/win32_fontinfoaction.html

WMI Fun !! 〜 Windows Management Instrumentation (WMI) に興味がある方・システム管理者必見 !! 〜

参考情報です。

参考情報です。

(Win32_FontInfoAction のサンプルが掲載されています。)

id:masal

むむむ、頂いたソースをコピペしただけでは動作しませんねえ・・・。

当方初心者につき、もう少し勉強してみます。

ありがとうございました!!

2004/12/09 18:20:42
  • id:cx20
    考えられる原因

    スクリプトが動かない原因として考えられるのは、

    ・ソースコードの記号(「”」「’」「¥」など)が全角になっている。
    ・WMI がインストールされていない(Windows 2000/XP であれば標準で入っています。)

    の2点です。

    ソースコードにつきましては、下記にアップしておきましたので、ご利用ください。

    http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F2004-12-02

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません