Я нашел этот пост в поисках некоторых примеров работы со свойством DriveType.
FWIW, хотя Хелен ясно дала правильный ответ, я подумал, что стоит также отметить, что вероятная причина, по которой ОП столкнулся с некоторой путаницей в своих результатах, заключается в том, что он смешивал и сопоставлял использование объектов из разных интерфейсов.
Он начал с получения списка приводных объектов с помощью FileSystemObject, но затем переключился на WMI, чтобы получить требуемые свойства от каждого приводного объекта. Значения свойства DriveType для объекта Drive отличаются в FileSystemObject и отличаются от WMI.
Аналогичная ссылка на то, что Хелен предоставила для WMI, но для FileSystemObject:
https://msdn.microsoft.com/en-us/library/aa243132(v=vs.60).aspx
Value Meaning
--------------------------
0 Unknown
1 Removable Disk
2 Fixed Disk
3 Network Drive
4 Compact Disc
5 RAM Disk
Его результаты соответствовали бы его ожиданиям, если бы он хранил все в FileSystemObject, что-то вроде:
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim colDrives : Set colDrives = objFSO.Drives
Dim objDrive
For Each objDrive in colDrives
Wscript.Echo objDrive.DriveType
Next