Imports System.Management
 
Public Class frmWMI
 
    Dim lbo As New ListBox With _
        {.Parent = Me, .Width = 300, .Height = 300}
 
 
    Private Sub frmWMI_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Dim t As String = ""
 
        'Dim searcher As ManagementObjectSearcher = _
        'New ManagementObjectSearcher("root/CIMV2", _
        '"SELECT * FROM Win32_LogicalDisk")
 
        Dim searcher As ManagementObjectSearcher = _
        New ManagementObjectSearcher("root/CIMV2", _
        "SELECT * FROM Win32_DiskDrive")
 
        For Each mobj As ManagementObject In searcher.Get
            lbo.Items.Add(mobj.ToString)
 
            For Each PropData As PropertyData In mobj.Properties
                t = PropData.Name
                If PropData.Value IsNot Nothing Then
                    t &= ":  " & PropData.Value.ToString
                End If
                lbo.Items.Add(t)
            Next PropData
        Next mobj
    End Sub
End Class