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.