InstallFonts

@echo off
setlocal

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Installe la nouvelle police d'ecriture DBS                     ::
:: Auteur : M. Conio, 2018-02-26                                  ::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

net use M: \\partage\semir\public\Fonts-Dbs
xcopy /r /i \\partage\semir\public\Fonts-Dbs%WINDIR%\Fonts /Y /C
xcopy /r /i \\public\Fonts-DBS C:\Temp\Fonts /Y /C

for /R "C:\Temp\Fonts" %%f in (*.ttf) do reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "%%~nf (TrueType)" /t REG_SZ /d %%~nf.ttf /f & reg add "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Fonts" /v "%%~nf (TrueType)" /t REG_SZ /d %%~nf.ttf /f
del /A /F /Q "C:\Temp\Fonts"
rmdir "C:\Temp\Fonts"

net stop FontCache
del /A /F /Q "%WinDir%\ServiceProfiles\LocalService\AppData\Local\FontCache\*FontCache*"
del /A /F /Q "%WinDir%\System32\FNTCACHE.DAT"
net start FontCache

exit