; Eject
; -----
; Locates ejectable drives and loops a prompt
; to eject media
;
finddisk B

:loop
iferror exit
disktype %B,C,v
ifnvar C,CD-ROM,next
msgbox Eject,Eject Drive %B ?,3,C
ifmsg CANCEL,exit
ifmsg NO,next
eject %B

:next
nextdisk B
goto loop

:exit