Schriftarten nachinstalliert Windows 7

Heute durfte ich auf allen unseren Windows Arbeitsplätzen Schriftarten nachinstalliert. Da das unter Windows 7 aber nicht mehr mit xcopy geht habe ich die Fonds mit einem VBScript installiert.

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("Z:\Fonts\Helvetica\")
Set objFolderItem = objFolder.ParseName("LTe50872.ttf")
objFolderItem.InvokeVerb("Install")