Detect type of devices?

Burning Software Nero & InCD
#1

Using NeroCom and VB6, if you have a computer with 3 devices, is there a reliable way to detect which one is a CD Burner, CD/DVD burner and normal CD-ROM?

#2

NeroDrive.MediaSupport returns a bitfield of supported media (NERO_MEDIA_TYPE).

#3

It doesnt work for me.

drives = nero.GetDrives(NERO_MEDIA_TYPE.NERO_MEDIA_DVD_ANY)

and

If (drives.Item(myIndex).MediaSupport And NERO_MEDIA_TYPE.NERO_MEDIA_DVD_ANY = NERO_MEDIA_TYPE.NERO_MEDIA_DVD_ANY)

both returns also drives that do not support DVDs, nor writing nor reading.

I suppose that

drives.Item(myIndex).DevType = NERO_SCSI_DEVTYPE.NERO_SCSI_DEVTYPE_WORM

would work for DVDs also, i.e. filters only dvd-write capable drives, not also dvd read only units ?

In fact i want to get a list only with DVD-write capable drives in the system, how do i do ?