Как идентифицировать съемный жесткий диск - VB

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

Распознать среди других томов. Читал через класс Win32_LogicalDisk, свойства DriveType и MediaType. Получил данные:

DriveType	MediaType	Name
3	12	C:
3	12	E:
4	0	T:

E - это съемный ЖД. Отделить от С:, как видите, не получилось. Еще способы? Другое свойство попробовать читать? У меня нет съемного ЖД. Сложно самому тестировать.

Решение задачи: «Как идентифицировать съемный жесткий диск»

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

                            Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set AllDrives = WMI.ExecQuery ("Select * from Win32_DiskDrive")
For each Disk in AllDrives
 Wscript.Echo Disk.InterfaceType
Next
                        