Imports System.Management                     'Project / Verweis hinzufügen / 
' System.Management
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim mo As New ManagementClass("Win32_LogicalDisk")
        Dim Instanzen As ManagementObjectCollection = mo.GetInstances
        Dim Inst As ManagementObject = Nothing
        For Each Inst In Instanzen
            Exit For
        Next
        For Each p As PropertyData In Inst.Properties             'Die Daten 
        ' der Festplatte
            If Not p.Value = Nothing Then
                ListBox1.Items.Add(p.Name & " = " & p.Value)      _
                  'VolumeSerialNumber=
            End If
        Next
    End Sub
End Class