Hallo Jörg,
du kannst die gewünschten Informationen über WMI (System.Management) ermitteln.
Wenn du dir die Ausgabe anschaust, wirst du alle möglichen Infos finden und die benötigten herauspicken können.
Vielleicht hilft das weiter...
Imports System.Management
Public Class MyDisks
Public Sub GetInfos()
Dim disks As Dictionary(Of String, String()) = GetProperties(WMI_Items.Win32_DiskDrive)
For Each kvp As KeyValuePair(Of String, String()) In disks
Console.WriteLine($"ID: {kvp.Key}:")
If kvp.Value IsNot Nothing Then
For Each value As String In kvp.Value
Console.WriteLine($" Value: {value}")
Next
Else
Console.WriteLine($" Value: Nothing")
End If
Next
End Sub
Public Enum WMI_Items
Win32_CDROMDrive
Win32_DiskDrive
Win32_FloppyDrive
Win32_PhysicalMedia
Win32_TapeDrive
End Enum
Public Shared Function GetProperties(ByVal WMI_Item As WMI_Items) As Dictionary(Of String, String())
Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * from " & WMI_Item.ToString)
Dim MOC As ManagementObjectCollection = MOS.Get
Dim MO As ManagementObject
Dim PD As PropertyData
Dim HWList As New Dictionary(Of String, String())
For Each MO In MOC
For Each PD In MO.Properties
If Not PD.Value Is Nothing Then
If HWList.ContainsKey(PD.Name) = False Then
HWList.Add(PD.Name, GetProperty(WMI_Item, PD.Name))
End If
End If
Next
Next
Return HWList
End Function
Public Shared Function GetProperty(ByVal WMI_Item As WMI_Items, ByVal PropertyName As String) As String()
Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select " & PropertyName & " from " & WMI_Item.ToString)
Dim MOC As ManagementObjectCollection = MOS.Get
Dim MO As New ManagementObject
Dim Values As New List(Of String)
Try
For Each MO In MOC
Values.Add(MO.GetPropertyValue(PropertyName))
Next
Catch ex As Exception
Return Nothing
End Try
Return Values.ToArray
End Function
End Class
Gruß
