以下のバッチでは全角文字を入力されてしまうと1文字で通ってしまいます。
Google検索では入力文字をバイト数で調べる例は一度ファイルに書き出す例ばかりヒットします。
余分なファイルを書き出すのは忌避されるのでそのまま全角でも入力文字のバイト数を調べる方法はありませんか？

:UsbRecovery
cls
REM 注釈
set "UsbMemory=xx"
set /P UsbMemory="リカバリーUSBブートドライブ を作成しますか？ ドライブ文字（ 半角１文字 D-Z ）"
if "%UsbMemory%"=="xx" goto UsbRecovery
set DrvLength=0
set Str=%UsbMemory%
:ReLoop
if "%Str%"=="" (goto :EndLoop)
set Str=%Str:~0,-1%
set /a DrvLength=%DrvLength%+1
goto :ReLoop
:EndLoop
if %DrvLength% NEQ 1 goto UsbRecovery
if "%UsbMemory%"=="0" goto UsbRecovery
REM 以下同様に数字キーと A B C ドライブ文字除外
set "choice=x"
set /P choice="USBメモリのドライブ文字は "%UsbMemory%:" で合っていますか？（y/n） "