Hallo zusammen,

Ich habe ein VBScript gemacht um Fonts auf die Clients zu installieren. Das ganze soll dann via Group Policy verteilt werden, nur mein ist Problem: Es funktioniert nicht.

- Wenn ich das Script manuel auf dem Client ausführe werden die Fonts installiert: dH Script stimmt.

- Die dazugehörige GPO wird an den Client übertragen.

Der Test Client hat WinXP SP2 installiert.

Habt ihr eine Idee wo der Fehler sein kann?

Gruss

Ich bin jetzt nicht ganz fit bei den GPO's, aber könnte es ein Berechtigungsproblem sein?

Nein, definitiv nicht. Habe das bereits mehrmals überprüft.

Dürfen wir das Script mal sehen?
Hast du die GPO Einstellung auf Computer oder Benutzer Ebene gesetzt?

grz zer00

Habs mit beiden Varianten probiert, beide Male ohne Erfolg.

Hier wäre noch das Script:


'**************************
' Shell initialization
'**************************
Set objShell = CreateObject("wscript.Shell")


'**************************
' FSO initialization
'**************************
strFontsLocalFolder = objShell.ExpandEnvironmentStrings("%systemroot%") & "\Fonts\"
'WSCript.Echo strFontsLocalFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFontsFiles = "xxxxxxx.ttf,xxxxxxxx.ttf,xxxxxxxxxxx,xxxxxxx.ttf, xxxxxxxxxxxx.ttf,xxxxxxxx.ttf,xxxxxxx.ttf,xxxxxxxx .ttf"
strFontsSysvolFolder = "\\xxxxxxxx\SYSVOL\xxxxxxx\scripts\xxxx\xxxx\xxxxx x\"


'**************************
' Registry initialization
'**************************
Const HKEY_LOCAL_MACHINE = &H80000002
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\default:StdRegProv")
strRegKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"


'**************************
' Registry initialization
'**************************
const SUCCESS = 0
const ERROR = 1
const WARNING = 2
const INFORMATION = 4
const AUDIT_SUCCESS = 8
const AUDIT_FAILURE = 16


'**************************
' Main code
'**************************

For Each strOneFonts In Split (strFontsFiles, ",")
Err.Clear
' copy one xxxx Fonts file locally, if it is not yet copied
If Not objFSO.FileExists(strFontsLocalFolder & strOneFonts) Then
objFSO.CopyFile strFontsSysvolFolder & strOneFonts, strFontsLocalFolder, True
'WScript.Echo "Copying " & strOneFonts

objReg.SetStringValue HKEY_LOCAL_MACHINE,strRegKeyPath, Replace(strOneFonts,".ttf", " (TrueType)"), strOneFonts

If Err.Number = 0 Then
objShell.Logevent INFORMATION, "Success of loading the following xxxx fonts by startup script from the domain sysvol: " & vbCr & strOneFonts & "."
Else
objShell.Logevent WARNING, "Error while loading the following xxxx fonts by startup script from the domain sysvol: " & vbCr & strOneFonts & "."
End If
End If

Next

Wird das Script ausgeführt?

grz zer00

Ja (sollte)

Hat vielleicht sonst noch jemand ein Idee?

Wenn es nicht funktioniert, heisst das, die Schriften sind (Dateimässig) auch nicht auf dem PC?
Wir verteilen Schriften mittels skriptbasierter Softwareverteilung, kopieren die Schriftendateien einfach in den Fonts-Ordner. Wichtig dabei ist einfach, NACH dem Kopieren kurz über den Explorer den Fonts-Ordner zu öffnen, aus irgendeinem Grund werden erst dann die Schriften aktiviert...

Genau. Wenn ich den Fonts Ordner öffne sind die Schriften nicht drin.

Wenn ich, wie zuoberst gschrieben, das Script manuell ausführe sind die Schriften im Fonts Ordner ersichtlich und werden auch von (zB) MS Word erkannt.

Hallo

Für die Fontverteilung kannst du dir auch ein MSI bauen:

Eigenbau und Erstellung eines MSI Paketes am Beispiel der Fonts

mfG

Tömu