How to find all CD/DVD & CD/DVD-RW drives?

[Terry Olsen]

How can I find all CD/DVD drives on a system? And how can I tell if they are
RW's?

Thanks.

 

[arthurjr07]

Try this

Dim objQuery As ObjectQuery
Dim objSearcher As ManagementObjectSearcher
Dim scope As ManagementScope = New ManagementScope
Dim strComputerName As String = "."
Dim queryCollection As ManagementObjectCollection

scope = New ManagementScope("\\" & strComputerName &
"\root\cimv2")
scope.Connect()
objQuery = New ObjectQuery("Select * From Win32_CDROMDrive")
objSearcher = New ManagementObjectSearcher(scope, objQuery)
queryCollection = objSearcher.Get()
For Each m As ManagementObject In queryCollection
MsgBox(m("Drive") & " " & m("Description"))
Next

Hope this will helps

 

[Herfried K. Wagner [MVP]]

How can I find all CD/DVD drives on a system?

<URL:http://dotnet.mvps.org/dotnet/code/filesystem/#DriveType>
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=setcddoorstatus&lang=en>

 

[hoppy]

How can I find all CD/DVD drives on a system? And how can I tell if
they are RW's?

Thanks.

See here:
http://www.vbforums.com/showthread.php?t=397792

You can detect whether each drive can read and write the usual suspects
(cd, cdrw, dvd, dvdrw, dvdram). The drive need to support the mmc standards
(www.t10.org), but most do.