set mount = CreateObject("Scripting.FileSystemObject")
set drives = mount.Drives
For Each drv in drives
typ = drv.DriveType

if typ = 0 then
msg = "Unknown"
elseif typ = 1 then
msg = "Floppy / Zip"
elseif typ = 2 then
msg = "Festplatte"
elseif typ = 3 then
msg = "Netzlaufwerk"
elseif typ = 4 then
msg = "CD-Rom"
elseif typ = 5 then
msg = "RAMdisk"
End If 

MsgBox("Found drive " & drv.DriveLetter & " (" & msg & ")")
Next