Dim selectQuery As New Management.SelectQuery("sel ect * fro m win32_logicaldisk")
Dim searcher As New Management.ManagementObjectSearcher(selectQuery)
For Each disk As Management.ManagementObject In searcher.Get()
Dim nType = CInt(disk("DriveType"))
If (nType <> CInt(IO.DriveType.Fixed)) Then
Continue For
Else
Output.Show(disk("DeviceID").ToString())
End If
Next