[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
ستحتاج اولا لاضافة ٌReference  اسمه System.Management
ثم هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyobjectQuery As New System.Management.ObjectQuery("select * from Win32_CDROMDrive")
       Dim MySearcher As New System.Management.ManagementObjectSearcher(MyobjectQuery)
       For Each Mgmt As System.Management.ManagementObject In MySearcher.Get()
           MsgBox(Mgmt("Name").ToString())
       Next
   End Sub