用script install fonts

Vektor_Sigma

请问谁会写script来install fonts吗？因为我做了一个courseware，在CD上的。我写了一个batch files来copy fonts去Windows\Fonts里，copy虽然成功，但是没有install到，所以还是不能用。
我在网上找到这个：
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "C:\Users\Vektor Sigma\Desktop\Desk\Nuclear Physics (E)\SambaIsDead.ttf"

这个是vbs来的，但一定要用absolute path，可是我的fonts是在CD上，所以不方便。请问有谁可以帮我吗？我需要copy几个fonts的.....