Schriftarten installieren mit einem vbs-Script

Um Schriftarten unter Windows 7 zu installieren kann folgendes Script verwendet werden

Const FONTS = &H14
dim oFSO,oShell, oFolder1, oFolder2, sRoot
sRoot="C:\Program Files (x86)\Novell\Zenworks\cache.bundles\Fonts"
Set oShell = CreateObject("Shell.Application")
set oFSO=createobject("scripting.filesystemobject")
Set oFolder1 = oShell.Namespace(FONTS)
set oFolder2=ofso.getfolder(sRoot)
for each oFile in oFolder2.files
  sName=lcase(oFile.name)
  if right(sName,4)=".ttf" then
    if not ofso.fileexists(oFolder1.self.path & "" & sName) then
    oFolder1.copyhere sRoot & sName
   end if
  end if
next

Das Script l├Ąuft nicht mit Benutzerrechten.
Unter ZCM verwende ich Als sicherer Systembenutzer ausf├╝hren (Interaktion von System und Desktop nicht zulassen).
Dann muss der Computer aber neu gestartet werden, damit die Schriftarten in der Systemsteuerung sichtbar werden.