This script uses a combination of scripts to distribute and then install a true type font on several remote computers.  The primary script will enumerate through all of the computer accounts in an AD OU named "Computers" and for each computer the script can ping successfully, it will copy the TTF file and another script, that performs the font installation, to the remote machine in the temp directory of the C: drive, and lastly executes the font installation.
If faced with a situation in which having the extra time or people to manually perform font installations is not an option, this set of scripts should bail you out...
note that administrative permissions are required to utilize this process.
Visual Basic
Edit|Remove
'pushfont.vbs
Dim RootDse, RootPath 
Dim ouComputers, Computer, oComputerList
Dim oPing, objStatus, oFso
Dim UpdateSourceDir, sCmd, FontFile

'this directory should contain this script,
'the font file to push, and the installfont.vbs file
UpdateSourceDir = "d:\update"
FontFile = "FREE3OF9.TTF"

Set RootDse = GetObject("LDAP://RootDse")
RootPath = "OU=Computers,OU=fabrikam," & RootDse.get("DefaultNamingContext")

'need a filesystem object to do the copy stuff
Set oFso = CreateObject("Scripting.FileSystemObject")
 
'the command to be executed in a remote process
sCmd = "c:\windows\system32\cscript.exe c:\temp\installfont.vbs " & UpdateSourceDir & "\" & FontFile & " //B"    

'get the list of computers to enumerate through
Set oComputerList = GetObject("LDAP://" & RootPath)

For Each Computer In oComputerList
        'if the computer is alive then perform the update
        Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
            ExecQuery("select * from Win32_PingStatus where address = '"_
            & Computer.Name & "'")
            For Each objStatus in oPing
                If Not IsNull(objStatus.StatusCode) And objStatus.StatusCode = 0 Then 
                        'perform the steps needed for the update
                        UpdateTargetDir = "\\" & Computer.Name & "\c$\temp"
                        
                        'make sure the target directory exists
                        If Not oFso.FolderExists(UpdateTargetDir) Then
                            oFso.CreateFolder(UpdateTargetDir)
                        End If
                        
                        'copy the font file to the remote computer
                        oFso.CopyFile UpdateSourceDir & "\" & FontFile, UpdateTargetDir & "\" & FontFile

                        'copy the script that installs the font to the remote computer
                        oFso.CopyFile UpdateSourceDir & "\installfont.vbs", UpdateTargetDir & "\installfont.vbs"

                        'grab a handle to a process on the remote computer
                        Set oTarget = GetObject("winmgmts:{impersonationLevel=impersonate}!" & _
                                      "\\" & Computer.Name & "\root\cimv2:Win32_Process")
                      'fire the script in a remote process
                      iResult = oTarget.Create("cmd /c " & sCmd ,,,iProcId)
                End If
              Next     
Next


'contents of the installfont.vbs file 
Const FONTS = &H14&
Dim oShell, oFolder

'the caller should include the path to the font file to be installed
If Wscript.Arguments.Count = 1 Then
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.Namespace(FONTS)
    oFolder.CopyHere Wscript.Arguments(0)
Else
    Wscript.Quit
End If