利用できるフォントを調べる(VBScript)

質問

VBScriptで利用できるフォントをすべて呼び出す方法を教えてください。もちろんプロポーショナルのPがついてるフォントもちゃんと呼び出す方法です。

回答No.1

utakataXEX · ベストアンサー

例えば、ＭＳ ゴシックの場合、レジストリ上は、プロポーショナルの区別はなく、
以下の様に格納されています。

ＭＳ ゴシック & ＭＳ Ｐゴシック & MS UI Gothic (TrueType)

この値でよいのであれば、

レジストリの値およびタイプの列挙
http://www.microsoft.com/japan/technet/scriptcenter/registry/scrreg08.mspx

を参考に、こんな感じ。

'Usage: CSCript //nologo getAllFonts.vbs
const HKEY_LOCAL_MACHINE = &H80000002
const REG_SZ = 1
const REG_EXPAND_SZ = 2
const REG_BINARY = 3
const REG_DWORD = 4
const REG_MULTI_SZ = 7
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

'ここはOSによって異なる↓
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"

oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath,arrValueNames, _
arrValueTypes

For i=0 To UBound(arrValueNames)
StdOut.WriteLine arrValueNames(i)
Next

参考URL：

http://www.microsoft.com/japan/technet/scriptcenter/registry/scrreg08.mspx

お礼

回答ありがとうございます。うまくいきました。

回答No.2

BLUEPIXY

Fonts
フォルダを調べればいいのでは

お礼

回答ありがとうございます。