pixelschubser
Goto Top

Schriften in Windows 7 übers Anmeldescript verteilen

Ich suche eine Möglichkeit wie ich meine Schriften über eine Batch-Datei installieren kann

Hallo zusammen,

nach dem ich nun Stunden damit verbracht habe eine Lösung zu finden, bin ich es leid und versuch es doch mal hier. Bisher habe ich nur eine Lösung gefunden, die zwar auch bei mir funktioniert, welche ich jedoch für sehr unpraktisch halte. Und zwar packt man sich ein MSI-Paket mit den gewünschten Schriften und lässt diese über eine Gruppenrichtlinen verteilen. Jedoch müsste ich dann jedes mal ein neues MSI-Paket packen, wenn eine neue Schrift hinzukommt.

Unter XP haben ich ein Ordner im Netzwerk, in dem sämtliche Schriften hinterlegt sind. Kommt eine Neue hinzu wird beim nächsten Anmelden nur die neue Schriftart kopiert. Das Anmeldescript funktioniert leider nur unter Windows XP und nicht mehr unter Windows 7. Hat jemand eine Idee?

Gruß
Samuel

Content-Key: 140381

Url: https://administrator.de/contentid/140381

Printed on: April 16, 2024 at 05:04 o'clock

Member: user217
user217 Apr 12, 2010 at 13:02:20 (UTC)
Goto Top
geht das nicht mehr mit dem fonts ordner wie unter xp?
Member: Pixelschubser
Pixelschubser Apr 12, 2010 at 13:10:41 (UTC)
Goto Top
Nein. Selbst als localer Administrator funktioniert folgendes script nicht:

copy Z:\font\xxxx.ttf %windir%\fonts /Y

SET REGADDFONTS="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
REG ADD %REGADDFONTS% /v "xxxx" /t REG_SZ /d "xxxx.ttf"

Als Ausgabe bekomm ich "eine Datei kopiert" und auch der Registry-Eintrag wird hinzugefügt, jedoch wird im Ordner und im Textverarbeitungsprogam die Schrift nicht angezeigt
Member: user217
user217 Apr 12, 2010 at 13:21:20 (UTC)
Goto Top
das ist bescheiden. Für WTS hast du keine Möglichkeit?
Member: Pixelschubser
Pixelschubser Apr 12, 2010 at 13:34:47 (UTC)
Goto Top
WTS? Helf mir mal auf die Sprünge...
Member: user217
user217 Apr 12, 2010 at 13:53:25 (UTC)
Goto Top
WindowsTerminsSitzung.. so das die Anwendung auf dem Server läuft..
Member: Pixelschubser
Pixelschubser Apr 12, 2010 at 14:03:44 (UTC)
Goto Top
Nein, will ich nicht. Teilweise wird auch offline gearbeitet
Member: Pixelschubser
Pixelschubser Apr 12, 2010 at 14:18:18 (UTC)
Goto Top
Die Schrift ist erst nach dem Neustart sichtbar... Allerdings geht es nur mit Administratorrechten -.-

copy Z:\font\xxxx.ttf %windir%\fonts /Y

Zugriff verweigert
0 Dateien kopiert

Wie kann ich die Schriften auch mit normalen Domainbenutzerrechten installieren?
Member: bstefan82
bstefan82 Apr 12, 2010 at 14:49:21 (UTC)
Goto Top
hier nen vbs was das macht:
      ' ###########################################  
      ' # installfont.vbs                         #  
      ' # installs font file in windows fonts dir #  
         ' # (c) 2007 by Gottfried Mayer             #  
         ' ###########################################  
     on error resume next     
         Dim oFSO, oApp, oFolderCopy, oShell
         Dim strFontsPath, strScriptPath
          
        ' Create needed Objects  
        Set oFSO = CreateObject("Scripting.FileSystemObject")  
        Set oShell = CreateObject("WScript.Shell")  
        Set oApp = CreateObject("Shell.Application")  
         
        ' Get Path of this Script (i.E. C:\Scripts\ or \\server\netlogon\)  
        strScriptPath = WScript.ScriptFullName
        strScriptPath = left(strScriptPath,instrrev(strScriptPath,"\"))  
         
        ' Get Path of Windows Fonts directory  
        strFontsPath = oShell.ExpandEnvironmentStrings("%WINDIR%") & "\Fonts"  
         
        ' Get Folder Object of Fonts directory (i.E. C:\Scripts\FontsToInstall or \\server\netlogon\FontsToInstall)  
       
	
	Set oFolderCopy = oApp.Namespace("\\mgyserver\Install\Fonts")  
         
        ' Check each Font if it already is installed  
        For Each oFont In oFolderCopy.Items
          If NOT oFSO.FileExists(strFontsPath & "\" & oFont.Name) Then  
            ' Tell Explorer to copy the Font - this correctly installs it.  
            oApp.Namespace(strFontsPath).CopyHere oFont
          End If
        Next
         
        ' Cleanup Objects  
        Set oFolderCopy = Nothing
        Set oApp = Nothing
        Set oShell = Nothing

Das script muss als Computerstartup Script in die GPO, dann werden alles Schriften die unter \\myserver\install\fonts liegen installiert. (sofern noch nicht vorhanden)
Member: Pixelschubser
Pixelschubser Apr 13, 2010 at 06:45:06 (UTC)
Goto Top
Danke funktioniert. Allerdings auch nur mit den entsprechenden Rechten...
Member: Pixelschubser
Pixelschubser Apr 13, 2010 at 07:26:09 (UTC)
Goto Top
Da gäbe es die Möglichkeit das Passwort in Klartext in das Script zu schreiben. Jedoch sehr unschön, da jeder auf das Script zugreifen kann.

Jetzt weiß ich nicht, wie sicher es ist, wenn ich das Script mit einem Parameter ausführen lasse, in dem das Kennwort steht. Wahrscheinlich auch nicht so dolle. Was gäbe es denn noch für Alternativen?

Gruß
Samuel
Member: bstefan82
bstefan82 Apr 13, 2010 at 11:45:10 (UTC)
Goto Top
sofern ihr eine domäne im einsatz habt, funktionierts als computer startupscript auf jeden rechner... (sollte)
(funktioniert natürlich nicht als Benutzerstartupscript.....)