Save the code below as a vbs file, and add it the the computer startup. All you or your users have to do then is put any fonts you/they want installing, into the shared server folder (\\server\share\fonts in the example).
It's built as a subroutine, so you can easily add it to an existing script or run it on its own.
If you ever want to add a new font, just copy it to the server; next time the machines reboot they'll install it. I've made the shared folder available to end users so they can add their own, obviously they need to be aware not to copy hundreds at a time, otherwise other users are not going to be too please next time they start their PCs.
on error resume next
Const FONTS = &H14
set oShell = CreateObject("Shell.Application")
set oFolder1 = oShell.Namespace(FONTS)
for each oFile in oFolder2.files
if right(sName,4)=".ttf" then
if not ofso.fileexists(oFolder1.self.path & "\" & sName) then
oFolder1.copyhere sRoot & sName
on error goto 0
Original Source: http://www.edugeek.net/forums/scripts/4756-script-install-fonts-workstations.html#post370283 Thanks to Steve Rochford for this code.