Install/copy fonts to all computers on my network

You could run batch file using netlogon script or Group Policy
Each target PC would then run the batch on startup and copy fonts from your Share

Something simple like this

copy \\server\networkshare\font1.ttf c:\windows\fonts

or you can create batch which would copy fonts from single PC on to all others

Something like this
copy \\server\networkshare\font1.ttf \\clientpc1\c$\windows\fonts
copy \\server\networkshare\font1.ttf \\clientpc2\c$\windows\fonts
copy \\server\networkshare\font1.ttf \\clientpc3\c$\windows\fonts

This is somewhat slower, but you could use excel to generate ip addresses for target machines to speed up the process.


Once done, you would need to update local machine registry on each PC through GP.
Also fonts would not be available until next reboot.

Here is the registry path:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

Other option would be to try to create MSI package with your 3 fonts, and deploy through GP as you would do with installing any other software remotely.

Take a look at this:
http://support.microsoft.com/kb/816102

I actually have 100 fonts that need to be copied over to a number of machines. Is there another way other than listing each font individually?

Yes, just create a folder on the share and put all required fonts in it. then just filter out copy process by extension.

 via netlogon
copy \\server\networkshare\fontcopy\*.*.ttf c:\windows\fonts

without net logon.
copy \\server\networkshare\fonttocopy\*.ttf \\clientpc1\c$\findows\fonts
copy \\server\networkshare\fonttocopy\*.ttf \\clientpc2\c$\findows\fonts
copy \\server\networkshare\fonttocopy\*.ttf \\clientpc3\c$\findows\fonts

I meant via GP not netlogon but the principle is the same
Also you could do push down the changes to registry via GP.

I also come accross on internet to this simple VB script which can be called upon your client at startup.

All you need to change sRoot and provide correct path to your server share with all the fonts.
Also make sure permissions are properly set and your clients can read from your share.

Sub InstallFonts
  on error resume next
  Const FONTS = &H14
  dim , oFSO,oShell, oFolder1, oFolder2, sRoot
  sRoot="\\servername\sharename\fonts\"
  Set oShell = CreateObject("Shell.Application")
  set oFSO=createobject("scripting.filesystemobject")
  Set oFolder1 = oShell.Namespace(FONTS)
  set oFolder2=ofso.getfolder(sRoot)
  for each oFile in oFolder2.files
    sName=lcase(oFile.name)
    if right(sName,4)=".ttf" then
      if not ofso.fileexists(oFolder1.self.path & "\" & sName) then
        oFolder1.copyhere sRoot & sName
      end if
    end if
  next
  on error goto 0
End Sub