Imports System.Management Public Class Form1 Dim Listbox1 As New ListBox With {.Width 800, .Height 900} Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Bounds = Listbox1.Bounds Dim searcher As ManagementObjectSearcher = _ New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") For Each wmi_HD As ManagementObject In searcher.Get() ListBox1.Items.Add("Model:" & vbTab & wmi_HD("Model").ToString()) Listbox1.Items.Add("Type:" & vbTab & wmi_HD("InterfaceType").ToString()) Listbox1.Items.Add("Index:" & vbTab & wmi_HD("Index").ToString()) Listbox1.Items.Add("Partitions:" & vbTab & wmi_HD("Partitions").ToString()) Listbox1.Items.Add("SCSITargetId:" & vbTab & wmi_HD("SCSITargetId").ToString()) Listbox1.Items.Add("SCSIBus:" & vbTab & wmi_HD("SCSIBus").ToString()) Listbox1.Items.Add("SCSILogicalUnit:" & vbTab & wmi_HD("SCSILogicalUnit").ToString()) Listbox1.Items.Add("SCSIPort:" & vbTab & wmi_HD("SCSIPort").ToString()) Listbox1.Items.Add("DeviceID:" & vbTab & wmi_HD("DeviceID").ToString()) Listbox1.Items.Add("PNPDeviceID:" & vbTab & wmi_HD("PNPDeviceID").ToString()) Listbox1.Items.Add("SerialNumber:" & vbTab & wmi_HD("SerialNumber").ToString()) Listbox1.Items.Add("Status:" & vbTab & wmi_HD("Status").ToString()) Listbox1.Items.Add("-------------------------------------------------") Next wmi_HD Me.Controls.Add(Listbox1) End Sub End Class
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
116 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.