Como ya te dije no dispongo del vbs para testear así que estos códigos los hago "a ojo", esto debería funcionar, sinó, modificalo un poco para arreglarlo:
:: By Elektro H@cker
REM FOR %%a in (pepe manolo elektro elhacker.net) DO (
REM Set /A "NUM+=1"
REM Call Set "Impresora%%NUM%%=%%a"
REM )
FOR /F "tokens=3,*"
%%a in ('cscript prnmngr.vbs -l
^| find "Nombre de impresora"'
) DO ( )
Echo: [
%%a] Impresora:
%%Impresora%%a%% | MORE
)
choice /C %CHOICES% /M "elige una impresora >> "
Echo: Has elegido la impresora "
%%IMPRESORA%ERRORLEVEL
%%%"
| MORE
Te debería salir algo así:

PD: si no te sale, examina con detalle los tokens del primer FOR, ahí estará el problema y la solución...
Saludos.