Unter Win 7 lassen sich Schriftarten ja ganz einfach mir Rechtsklick -> Install installieren. Andere Möglichkeit via Drag & Drop nach c:\windows\fonts kopieren.
Was nicht geht ist via Copy Befehl einfach nur die Schriften nach c:\windows\fonts zu kopieren. Dann fehlen Registry Einträge.
Habe nun eine Lösung gefunden wie ich diese via VB-Script automatisiert installieren kann:
Set ofso = CreateObject("Scripting.FileSystemObject") SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName) Const FONTS = &H14& Set objShell = CreateObject("Shell.Application") Set oSource = objShell.Namespace("\\servername\freigabe$\Fonts") Set oWinFonts = objShell.Namespace(FONTS) ' Lame VBscript needs 4 f*ing lines instead of "if (/\.pfm$/i) " ... Set rxTTF = New RegExp rxTTF.IgnoreCase = True rxTTF.Pattern = "\.pfm$" FOR EACH FontFile IN oSource.Items() IF rxTTF.Test(FontFile.Path) THEN oWinFonts.CopyHere FontFile.Path END IF NEXT
Set oSource = objShell.Namespace("\\servername\freigabe$\Fonts") steht für den Ort wo die Sourcefonts liegen.
&H14& steht für c:\windows\fonts (Windows 7 kennt das schon von Haus aus)
Gruss kazee