День добрый!
Никто не сталкивался с использованием на VBS объекта WbemScripting.SWbemLocator для получения списка шрифтов ?
Есть код:

Option Explicit


' ------------------------------------------------------------------------------
' ------------------------------------------------------------------------------
Dim  objLocator, objServices, objItems, objItem


Set  objLocator  = WScript.CreateObject("WbemScripting.SWbemLocator")
Set  objServices = objLocator.ConnectServer()
Set  objItems    = objServices.ExecQuery("Select * from Win32_FontInfoAction")


WScript.Echo("Размер коллекции: " & objItems.Count)

На строке

WScript.Echo("Размер коллекции: " & objItems.Count)

зависает примерно на полторы минуты (но результат выводит).

С чем это может быть связано ?
Или может кто подскажет другой способ проверки наличия шрифта по заданному имени (с помощью COM-объектов)...