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.