未だに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メーカーによってインストールメディア以外からの配布を禁止していたりする事があるので、その点だけ注意してください。(実際には出来てしまうのですが。)