未だにVBScriptについて新しい話題を提供してくれるHey, Scripting Guy!に運用で使えそうなスクリプトがあったのでご紹介。
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "C:\Scripts\Myfont.ttf"
Fontのコピーってなかなか手間だったりするのですが、このスクリプトを利用すれば楽ちんですね。
ちなみにFontメーカーによってインストールメディア以外からの配布を禁止していたりする事があるので、その点だけ注意してください。（実際には出来てしまうのですが。）