set oCollection = GetObject("winmgmts:{impersonationLevel=impersonate}\.
ootcimv2").ExecQuery("select * from Win32_LogicalDisk where DriveType=3")
For Each item In oCollection
  s = ""
  For Each x In item.Properties_
    s = s & x.Name & " = " & x.Value & vbNewLine
  Next
  MsgBox s
Next