Just for KiX ;-) I've translated the VBS, didn't test it though:
 Code:
$=SetOption('Explicit','On')
; Installing multiple Fonts in Windows 7

Dim $objShell, $objFSO
Dim $strFontSourcePath, $objFolder, $objFont, $objNameSpace, $objFile, $objFontsFldr, $objFonts, $strFonts
$FONTS = &14&

$objShell = CreateObject("Shell.Application")
$objFSO = CreateObject("Scripting.FileSystemObject")

$strFontSourcePath = "F:\CustomFonts\"

$objFontsFldr = $objShell.Namespace($FONTS)
$objFonts = $objFontsFldr.Self
$strFonts = $objFonts.Path + "\"

If Exist($strFontSourcePath)
  $objNameSpace = $objShell.Namespace($strFontSourcePath)
  $objFolder = $objFSO.GetFolder($strFontSourcePath)
  For Each $objFile In $objFolder.files
    If LCase(right($objFile,4)) = ".ttf" OR LCase(right($objFile,4)) = ".otf"
      If $objFSO.FileExists($strFonts+$objFile.Name)
        ? "Font already installed: "+$objFile.Name
      Else
        $objFont = $objNameSpace.ParseName($objFile.Name)
        $objFont.InvokeVerb("Install")
        ? "Installed Font: "+$objFile.Name
        $objFont = ""
      EndIf
    EndIf
  Next
Else
  ? "Font Source Path does not exists"
  sleep 5000
EndIf