installation de fonts

2 réponses

Stéphane

01/03/2006 à 12:26

bonjour,

je souhaites installer une fonts par script j'ai tenté ceci mais ca ne
fonctionne pas la font n'apparait pas

========================
Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

'copie du fichier dans le répertoire fonts
fso.CopyFile "P:\Composants\Windows\fonts\TTMITC__.TTF" ,
"c:\windows\fonts\"

'enregistrement dans la BR
KeyBase="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Fonts"
Key2= KeyBase

shell.RegWrite key2 + "\Transportation (TrueType)","TTMITC__.TTF","REG_SZ"

Wscript.Quit

===========================

alors si quelqu'un sait ou je me suis trompé

merci

Stéphane

2 réponses

Georges

01/03/2006 à 15:42

Bonjour,
Votre script fonctionne.
Après reboot la fonte apparaitra.

Cordialement
Georges

"Stéphane" a écrit dans le message de news:
%

bonjour,

je souhaites installer une fonts par script j'ai tenté ceci mais ca ne
fonctionne pas la font n'apparait pas

======================= > Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

'copie du fichier dans le répertoire fonts
fso.CopyFile "P:ComposantsWindowsfontsTTMITC__.TTF" ,
"c:windowsfonts"

'enregistrement dans la BR
KeyBase="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionFonts"
Key2= KeyBase

shell.RegWrite key2 + "Transportation (TrueType)","TTMITC__.TTF","REG_SZ"

Wscript.Quit

========================== >
alors si quelqu'un sait ou je me suis trompé

merci

Stéphane

Michel Claveau

01/03/2006 à 16:10

Bonjour !

Exact. Et, aussi, inutile d'aller écrire dans le registre. La copie
suffit.

Une 'tite suggestion, toutefois :
utiliser %WINDIR% au lieu de C:windows
Cela marchera aussi avec win-2000, et des installations particulières.

--
@-salutations

Michel Claveau

installation de fonts

2 réponses

Veuillez sélectionner un problème