'Beispiel: VB .Net - WMI - Plug and Play Komponenten auflisten. 1 ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Collections Imports System.Management Namespace VBDotNet_WMI_PlugAndPlay_EnumComponents Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Private listBox1 As System.Windows.Forms.ListBox Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.listBox1 = New System.Windows.Forms.ListBox Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'listBox1 ' Me.listBox1.Location = New System.Drawing.Point(8, 48) Me.listBox1.Name = "listBox1" Me.listBox1.Size = New System.Drawing.Size(768, 212) Me.listBox1.TabIndex = 1 ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(768, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Test..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(784, 266) Me.Controls.Add(Me.listBox1) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <WMI - Plug and Play Komponenten auflisten. 1>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Try Dim Enumerator As IEnumerator = WMI_EnumPNPEntity().GetEnumerator() While Enumerator.MoveNext() listBox1.Items.Add(Enumerator.Current) End While Catch ex As Exception MessageBox.Show(ex.Message, "Info") End Try End Sub Private Function WMI_EnumPNPEntity() As ArrayList Try Dim TList As New ArrayList Dim moc As ManagementObjectCollection Dim query As String = "Select * from Win32_PNPEntity" Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(query) Dim mo As ManagementObject moc = mos.Get For Each mo In moc TList.Add(mo("DeviceID") & " = " & mo("Name")) Next Return TList Catch '// End Try End Function End Class End Namespace