Script VBS : Installer des Fonts sous Windows 7

Lors de vos déploiements, vous aurez certainement besoin d’installer de nouveaux « Fonts » ou « Jeux de Caractères » sous Windows. Pour cela … rien ne vaut un script VBS !

Le script ci dessous vous montre comment installer des fonts (.otf et .ttf) sur vos postes !


 
'Variables Initialization
	set WshShell = WScript.CreateObject("WScript.Shell")
	currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
	
'Copy new Fonts to Fonts Folders
	result = WshShell.run("XCopy /E " & currentDirectory & "\Fonts C:\Windows\fonts\ /Y /C" )
	
'Add XXX and YYYY fonts to Windows 7
	result = WshShell.run("REG ADD ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"" /v ""XXXXX  (True Type)"" /t REG_SZ /d ""XXXXX.ttf"" /f")
	result = WshShell.run("REG ADD ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"" /v ""YYYYYY"" /t REG_SZ /d ""YYYYYY.otf"" /f")
Please follow and like us:

Comments

  1. By GAMA

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Social media & sharing icons powered by UltimatelySocial