_SUB FindDiskCDROM  
    SET-def Result=
    FDRV &&All=*:
    SET-def ic=0
    SET-def id=0
    FORX * %All%,&&a,
    {   FORM -raw &&T=%&a%
        FIND $DRIVE_CDROM=%&T%,  TEAM SET Result =%&Result% %&a% CDROM%&ic%| CALC &ic=%ic%+1
        FIND $DRIVE_FIXED=%&T%,  TEAM SET Result=%&Result% %&a% Disk%&id% | CALC &id=%id%+1
        // FIND $DRIVE_REMOVABLE=%&T%,  SET CDROM=%&CDROM% %&a% Disk%&id% | CALC &id=%id%+1 //根据需要
    }
    ENVI-ret %1=%&Result%
_END

FindDiskCDROM  &&Result 
MESS  [%&Result%]
// [ C: Disk0  D: Disk1  E: Disk2  F: CDROM0 G: CDROM1 O: CDROM2 U: Disk3  V: Disk4 ]