Installing fonts on remote host

[sammy2ooo 10]

Hallo zusammen

 

Kann mir jemand verraten wie ich auf mehreren Rechnern eine TrueType Schrift installieren kann? Ein einfaches kopieren genügt ja laut: Hey, Scripting Guy! How Can I Install Fonts Using a Script? nicht.

 

Das funktioniert mal für die lokale Kiste...aber wie stell ich das für mehrere Kisten an?

Const FONTS = &H14&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "C:\Scripts\Myfont.ttf"

[vmorbit 10]

hat zwar jetzt nicht direkt mit skripting zu tun,

aber fonts kannst du auch per file-copy und regkey import installieren.

 

guck mal in:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

 

ich glaub da steckn die drin...

richtigen key exportiert, file copy und key import...ferdisch :D

 

das ganze kannst du per regedit /s in eine batch einbauen.

[Biber 10]

@vmorbit

Im Prinzip ja, aber für "richtigen key" musst Du schon wenigstens an einem Rechner die Fonts installiert haben, sonst kennst Du den Text-Wert der Schriftart nicht.

Über den Weg der Scripting Guys brauchst Du nichts dergleichen wissen, falls Du mal einen kompletten Orner mit *.ttf- und *.fon-dateien verteilst.

@sammy2000

In dem Artikel steht doch explizit, dass es (leider) remote nicht so funktioniert und das die stressarme und halbwegs ästhetische Alternative über ein LoginSkript geht.

Oder die Sieht-aus-wie-gewollt-und-nicht-gekonnt-Variante über "copy *.*" und den DAU-Clients bitten, den FONTS-Ordner mit dem Explorer zu öffnen.

 

Grüße

Biber

[sammy2ooo 10]

Leute, ihr seid spitze, danke für die Antworten :thumb1:

 

...und so funktionierts :cool:

Const HKEY_LOCAL_MACHINE 	= &h80000002
Set objFSO = CreateObject("Scripting.FileSystemObject")
sourceFile = "\\sourceserver\share$\ch03st.ttf"

For i = 0 To 9 
' create hostname
host = "host001" & i & ".domain.local"

WScript.Echo "Installing font on: " & host 

' create destination 
destFolder = "\\host001" & i & "\c$\windows\fonts\"

' copy trueType font to fonts folder 
Call objFSO.CopyFile(sourcefile, destFolder)

' create font key in registry 
Call writeKey(host, HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", "CH3 Steinschrift (TrueType)", "ch03st.ttf")
Next

Sub writeKey(ByRef server, ByRef hkey, ByRef key, ByRef name, ByRef value) 
Set wmireg = GetObject("winmgmts:\\" & server & "\root\Default:StdRegProv")

result = wmireg.SetStringValue(hkey, key, name, value)

If result <> 0 Then 
	WScript.Quit "Fehler beim erstellen des Keys: " & key & " auf " & server
End If 
End Sub 

[vmorbit 10]

lässig. man lernt nie aus.