Название Cd-rom-а - VB

Формулировка задачи:

как с помощью VB.6 узнать какой CD-ROM, т.е его название, надо чтобы например при запуске формы название привода отображалось в текстовом поле?

Решение задачи: «Название Cd-rom-а»

textual
                            Листинг программы 
                        

                            Dim WMI, str, ColCD, CD
set WMI=getobject("Winmgmts:")
str=str & "CD-ПРИВОДЫ:" & VBCRLF
Set ColCD=WMI.execquery("select * from Win32_CDROMDrive")
str=str & "Количество: " & ColCD.count & vbcrlf
For Each CD In ColCD
str=str & "Диск (" & CD.MediaType & ") " & CD.Drive & vbcrlf
str=str & CD.caption & vbcrlf
Next
                        