@echo off
pushd %SystemRoot%\System32
for %%F in (C_1250.NLS C_1252.NLS C_1253.NLS C_1254.NLS C_1255.NLS) do call :STAND %%F C_1251.NLS
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid" /d "Arial" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid,0" /d "Arial,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Arial,0" /d "Arial,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Tahoma,0" /d "Tahoma,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Verdana,0" /d "Verdana,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Comic Sans MS,0" /d "Comic Sans MS,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Courier,0" /d "Courier,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "MS Sans Serif,0" /d "MS Sans Serif,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Times New Roman,0" /d "Times New Roman,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid Bold Italic,0" /d "Arial,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid Bold,0" /d "Arial,204" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid Bold Italic" /d "Arial" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid Bold" /d "Arial" /f
popd
echo.
pause
goto :EOF

:STAND
rem Не допускает повторной обработки:
if exist %1.bak goto :EOF
rem Устанавливает владельцем текущего пользователя:
takeown /f %1
rem Предоставляет текущему пользователю полный (F) доступ:
icacls %1 /grant %USERNAME%:(F)
rem Сохранение оригинального файла:
ren %1 *.*.bak
rem Подмена кодовой таблицы:
copy %2 %1