Try the following mate. You only need to change the UNC path and the font names.
some fonts need to be installed, and cannot be simply copied over. Maybe thats what it is.
=======================================
'vbscript
Const FONTS = &H14&
fontpath = "
\\SomeServer\express\packages\Fonts\fontxyz"
arrFonts = ARRAY(_
"Font1.otf", _
"Font2.otf", _
"Font3.otf" )
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
Set objFolderItem = objFolder.Self
sDestinationPath = objFolderItem.path
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
For i=0 to UBound(arrFonts)
strSourceFile = fontpath & "\" & arrFonts(i)
strDestinationFile = sDestinationPath & "\" & arrFonts(i)
If NOT objFileSystem.FileExists(strDestinationFile) _
Then objFolder.CopyHere strSourceFile
Next
wscript.quit
