List Items in the Fonts Folder

Const FONTS = &H14&

Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(FONTS)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items
For Each objItem in colItems
    Wscript.Echo objItem.Name
Next

Set objShell = Nothing
Set objFolder = Nothing
Set objFolderItem = Nothing
Set colItems = Nothing

‘You can modify to write script: auto detect and download font atomatically