[Iska]

Попробуйте так:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

>"%UserProfile%\Desktop\Список программ.txt" (
	>nul chcp 1251
	
	for /f "usebackq delims=" %%i in (
		`reg.exe query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"`
	) do for /f "usebackq tokens=3*" %%j in (
			`reg.exe query "%%~i" /v "DisplayName" 2^>nul ^| find.exe /i "DisplayName"`
		) do echo %%~j %%k|findstr.exe /i /v /r /c:"^Microsoft Visual C++ .* False$"
	
	>nul chcp 866
)

endlocal
exit /b 0