Set objFSO=CreateObject("Scripting.FileSystemObject")
Const FONTS = &H14&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
If Not (objFSO.fileExists("C:\Windows\Fonts\bgothl.ttf")) Then
objFolder.CopyHere "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\bgothl.ttf"
End If
If Not (objFSO.fileExists("C:\Windows\Fonts\ERASBD.TTF")) Then
objFolder.CopyHere "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\ERASBD.TTF"
End If
If Not (objFSO.fileExists("C:\Windows\Fonts\ERASLGHT.TTF")) Then
objFolder.CopyHere "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\ERASLGHT.TTF"
End If
If Not (objFSO.fileExists("C:\Windows\Fonts\gdt_____.ttf")) Then
objFolder.CopyHere "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\gdt_____.ttf"
End If
If Not (objFSO.fileExists("C:\Windows\Fonts\gdt_____.ttf")) Then
objFolder.CopyHere "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\gdt_____.ttf"
End If
If Not (objFSO.fileExists("C:\Windows\Fonts\HelveticaNeue-BoldExt.ttf")) Then
objFolder.CopyHere "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\HelveticaNeue-BoldExt.ttf"
End If

Dim FontsSource
Dim FontsTarget

FontsSource = "\\domain\files\Departments\Operations\Corp CAD\AutodeskCentral\Fonts\"
FontsTarget = WScript.Arguments.Item(0)

' Copy fonts to the path provided by calling vbscript
objFSO.CopyFile FontsSource & "*.*", FontsTarget, True