@echo off
rem Detector de CDROM by RockoX
for /f "tokens=1 delims= " %%x in ('wmic cdrom get /format:list ^| find /i "Drive="') do (set CDrom=%%x)
echo Cdrom : %cdrom:~-3%
pause>nul & goto:eof

@echo off
for /f "tokens=2 skip=1" %%x in ('fsutil fsinfo drives') do (
fsutil fsinfo drivetype %%x | find /i "CD-ROM" > nul 2>&1 && set cdrom=%%x
for /f "tokens=1 skip=2" %%c in ('fsutil fsinfo drives ^| more') do (
fsutil fsinfo drivetype %%c | find /i "CD-ROM" > nul 2>&1 && set cdrom=%%c
)
)
if not defined cdrom (
echo No se ha encontrado unidad de CD-ROM en su sistema.
goto:eof
)
dir /b %cdrom% > nul 2>&1 && (
echo Disco dentro
goto:Eof
) || (
echo Unidad vacia %cdrom%
)
>nul (pause)