@echo off
echo+ /Archivos en windows: > Archivo.txt
for /f "tokens=*" %%r in ('dir /B %WINDIR%\*.exe') do Echo+ "%%r" >> Archivo.txt
type archivo.txt
pause
 

@echo off
 
Set Lista="%USERPROFILE%\Desktop\Archivo.txt"
 
echo+ /Archivos en windows: > %lista%
echo+ >> %lista%
 
 
 
:Find
echo Buscando...
 
for /f "tokens=*" %%a in ('dir /B /S %WINDIR%\ /A:D') do (
	Set Carpeta="%%a"
	dir /B "%%a\*.exe" >nul 2>&1
	call :Print
)
goto :END
 
 
:Print
If %ERRORLEVEL% EQU 1 (
	echo+ /Archivos en %carpeta%: >> %lista%
	echo No hay archivos >> %lista%
	echo+ >> %lista%
	goto:eof
)
 
 
If %ERRORLEVEL% EQU 0 (
	echo+ /Archivos en %Carpeta%: >> %lista%
	dir /B %Carpeta%\*.exe >> %lista%
	echo+ >> %lista%
	goto:eof
)
 
 
:END
start /b notepad %lista%
exit

 /Archivos en C:\Windows\Downloaded Installations: 
No hay archivos 
 
 /Archivos en C:\Windows\Downloaded Program Files: 
No hay archivos 
 
 /Archivos en C:\Windows\ehome: 
ehexthost.exe
ehmsas.exe
ehprivjob.exe
ehrec.exe
ehrecvr.exe
ehsched.exe
ehshell.exe
ehtray.exe
ehvid.exe
loadmxf.exe
mcGlidHost.exe
McrMgr.exe
mcspad.exe
mcupdate.exe
Mcx2Prov.exe
McxTask.exe
MediaCenterWebLauncher.exe
RegisterMCEApp.exe
WTVConverter.exe
 
 /Archivos en C:\Windows\en-US: 
No hay archivos 

:Print
If %ERRORLEVEL% EQU 0 (
	echo+ /Archivos en %Carpeta%: >> %lista%
	dir /B %Carpeta%\*.exe >> %lista%
	echo+ >> %lista%
	goto:eof
) ELSE (
	goto:eof
)

Set Lista="%USERPROFILE%\Desktop\Archivo.txt"

@echo off
echo+ /Archivos en windows: > Archivo.txt
for /f "tokens=*" %%r in ('dir /B %WINDIR%\*.exe') do Echo+ "%%r" >> Archivo.txt
echo+ >> Archivo.txt
 
 
echo+ /Archivos en system32: >> Archivo.txt
for /f "tokens=*" %%r in ('dir /B %Windir%\system32\*.exe') do Echo+ "%%r" >> Archivo.txt
start /b notepad archivo.txt
exit