Не удается установить шрифт с помощью VBScript из-за исключения "требуется объект: "objFolderItem""

вот мой скрипт основанный на Как установить шрифт из командной строки Windows?

Dim WinFontDir
Dim SrcFontDir
WinFontDir = "C:WindowsFonts"
SrcFontDir = "..fonts.test"


Set objShell = CreateObject("Shell.Application")
Set objFontFolder = objShell.Namespace(WinFontDir)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSrc = objFSO.GetFolder(SrcFontDir)
Set colFiles = objSrc.Files
For each objFile in colFiles
    If objFSO.FileExists(WInFontDir + "" + objFile.Name) Then
        WScript.Echo objFile.Name 
    else
        WScript.Echo "Copying " + objFile.Name
        objFSO.CopyFile SrcFontDir + "" + objFile.Name, WinFontDir + "" + objFile.Name
        Set objFolderItem = objFontFolder.ParseName(objFile.Name)
        objFolderItem.InvokeVerb("Install")  // <- exception
    End If
Next

в основном я хочу иметь возможность перебирать папку шрифтов, и только копировать и устанавливать, если файл шрифта не существует "C:WindowsFonts" в первую очередь.

но когда дело доходит до этой строки objFolderItem.InvokeVerb("Install") Я получил сообщение об ошибке:

требуется объект: 'objFolderItem'

Что такое причина?