@echo off & setlocal enableextensions

for %%d in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do fsutil fsinfo drivetype %%d: | find /v "No such Root Directory"

::endlocal & goto :EOF

pause

@echo off
setlocal enabledelayedexpansion

set tf=x
set /a number=0
for /f "tokens=1* delims= " %%a in ('fsutil fsinfo drives ^| find "\"') do call :process %%a %%b
del %tf%

:UserInput
:: Asks for and checks user input, based on drive variables
:: If nothing is selected, processing is terminated
:: If invalid value is selected, it loops back to the beginning
set choice=
set /p choice=Please select a drive from the list:
if "%choice%"=="" Echo Exiting... & goto :eof

for /f "tokens=2 delims== " %%a in ('set drive%choice% 2^>^&1') do (
    if "%%a"=="variable" (
        Echo Invalid option selected, please try again
        goto :UserInput
    ) else (
        set choice=%%a
    )
)
:: At this point, we should have a valid drive stored in the %choice% variable

endlocal
goto :eof

:process
:: Gets the information for each drive, sets the drive number variables
if "%1"=="" goto :eof
set /a number+=1
if /i "%1" NEQ "Drives:" (
    set drive%number%=%1
    fsutil fsinfo drivetype %1 > %tf%
) else (
    set drive%number%=%2
    fsutil fsinfo drivetype %2 > %tf%
)
set /p drivetype=<%tf%
echo %number%. %drivetype%