Instalar múltiplas fontes via vb

Bom dia.

Pesquisei na net acerca de um módulo para instalação de fontes em bloco, várias de uma pasta e encontrei o código abaixo, mas não estou conseguindo adaptar para uso pessoal.

Peço, se puderem, dicas para o funcionamento.]

Option Explicit
' Installing multiple Fonts


Dim objShell, objFSO, wshShell
Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile

Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = createobject("Scripting.Filesystemobject")

strFontSourcePath = "\\dominio\NETLOGON\FONTES"

If objFSO.FolderExists(strFontSourcePath) Then

Set objNameSpace = objShell.Namespace(strFontSourcePath)
Set objFolder = objFSO.getFolder(strFontSourcePath)

For Each objFile In objFolder.files
If LCase(right(objFile,4)) = ".ttf" OR LCase(right(objFile,4)) = ".otf" Then
Set objFont = objNameSpace.ParseName(objFile.Name)
If objFSO.FileExists("C:\WINDOWS\Fonts\" & objFile.Name) = False Then
objFont.InvokeVerb("Install")
Set objFont = Nothing
End If
End If
Next
Else
Wscript.Echo "Font Source Path does not exists"
End If

Poste Exemplos! Com as fontes e se possível onde achou o Código!

Bom dia.

Não coloquei o link externo por achar que estava violando a regra número 14 que diz:

"É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox."

Mas se pode, vamos lá.

Link: (Copiar e Colar no navegador)
social.technet.microsoft.com/Forums/windows/pt-BR/8ca8690f-4caa-45c3-8740-ec5513e2ae1f/instalar-fontes-via-script-ou-gpo?forum=winsrv2003pt

É proibido add como Link amigo! Mas como texto pode Add, veja que editei sua Mensagem!

Faltou o Exemplo do Access com as fontes!


Outra coisa, esse Código é para GPO Windows e Não para VB, portanto duvido que funcione!

GPO: A GPO também conhecida como group policy ou diretiva de grupo é um conjunto de configurações que permite que você personalize diversos recursos dos usuários e dos computadores