fontreg.exe(注册安装字体小工具) v2.1.3

xcopy /i /s /y "%~dp0*" "\\%h%\c$\temp\fonts\"
psexec -e \\%h% cmd /c (pushd c:\temp\fonts ^& fontreg.exe /copy)

@echo off
cd /d %~dp0
::字体后缀
set fontExtensions=(ttf otf)
for %%x in %fontExtensions% do (
	echo A|xcopy %cd%\*.%%x %windir%\fonts\
) 
for /f "delims=" %%i in ('dir /ad/b/s "%cd%"') do (
	for %%x in %fontExtensions% do (
		echo A|xcopy %%i\*.%%x %windir%\fonts\
	) 
)
::注册字体，单纯的拷贝不会安装成功
echo "registering font"
reg Query "HKLM\Hardware\Description\System\CentralProcessor\0" | find /i "x86" > NUL && set OS=32BIT || set OS=64BIT
if %OS%==32BIT START "FontReg" %cd%\FontRegx86.exe
if %OS%==64BIT START "FontReg" %cd%\FontRegx64.exe
pause

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d %~dp0
set fontExtensions=(ttf otf)
for %%x in %fontExtensions% do (
    echo A|xcopy %cd%\*.%%x %windir%\fonts\
) 
for /f "delims=" %%i in ('dir /ad/b/s "%cd%"') do (
    for %%x in %fontExtensions% do (
        echo A|xcopy %%i\*.%%x %windir%\fonts\
    ) 
)
echo "registering font..."
FontReg.exe
echo "Registering complete!"
pause