Visual Basic

Dim driveMedia As New ManagementClass("Win32_CDROMDrive")

                       For Each mo As ManagementObject In driveMedia.GetInstances()

                           MsgBox((mo.GetPropertyValue("MediaType")))

                       Next

Dim driveMedia As New ManagementObjectSearcher("Select * From Win32_CDROMdrive")
                       For Each mo As ManagementObject In driveMedia.Get()
                           Debug.WriteLine(mo.GetPropertyValue("MaxMediaSize"))
                       Next

ManagementObjectSearcher o = new ManagementObjectSearcher("select * from win32_cdromdrive");
foreach (ManagementObject obj in o.Get()) {
  string s = obj.GetText(TextFormat.Mof);
}

Dim _oFSO = CreateObject("Scripting.FileSystemObject")
Dim _oDrive = _oFSO.GetDrive("G:")
MessageBox.Show(_oDrive.TotalSize)