Script To Install Fonts To Workstations

[maximator152]

If you are looking for an easy way to intall fonts in windows 7 with a little script.

you can find it for free on our page:


Cheers

[maximator152]

sorry forgot the link:

install font with command line or script in windows 7

[zachariah]

Excellent script from maximator152 there - thanks!

Also, here is a page with easy details to quickly make an msi for one or more fonts:

laslow.net/2009/02/23/installing-a-font-via-gpo-server-20032008/

(you'll need to have a copy of WininstallerLE, which I think is still free)

I've used that method with no problems so far. The only slight inconvenience is the machines need a restart after the msi has run before the font is visible to the user.

[Yoa1202]

Add in some debugging:

Sub InstallFonts
  on error resume next
  Const FONTS = &H14
  dim , oFSO,oShell, oFolder1, oFolder2, sRoot
  sRoot="\\server\share\fonts\"
  Set oShell = CreateObject("Shell.Application")
  set oFSO=createobject("scripting.filesystemobject")

set oLog=ofso.createtextfile("c:\windows\temp\fonts.log",true)

  Set oFolder1 = oShell.Namespace(FONTS)
  set oFolder2=ofso.getfolder(sRoot)
  for each oFile in oFolder2.files
    sName=lcase(oFile.name)

oLog.writeLine "found: " & sName

    if right(sName,4)=".ttf" then
      if not ofso.fileexists(oFolder1.self.path & "\" & sName) then

oLog.writeLine "installing: " & sName

        oFolder1.copyhere sRoot & sName
      end if
    end if
  next
  on error goto 0

oLog.close

End Sub

- add the "olog" lines and it should write a log file to c:\windows\temp\fonts.log with some info about what's happening.
If that file doesn't get created then the script just isn't running. If it gets created and it appears to not find any fonts then your script isn't able to read the fonts directory (remember you must have "domain computers" with read access to get that to work)

This script didn't work for me, when I double click it present an error in line4.

This is what I have in line 4 sRoot="c:\font\c39hrp24dhtt.ttf" just to my localdisk.
And there's no font.log in windows\temp to see what's happening.

any Ideas?

[PiqueABoo]

I've used fontreg for this in the past, have just put it in some package folder alongside the font files and run: fontreg /copy