Public Sub Fill(ByVal vstrW32Class As String)
        Dim objWMIClass As New WMIClass
        Dim objSearcher As New ManagementObjectSearcher("select * from " & _
          vstrW32Class)
 
        Try
            objWMIClass.Name = vstrW32Class
 
            For Each objItem As ManagementObject In objSearcher.Get
                For Each objProperty As PropertyData In objItem.Properties
                    Dim strProperty As String = objProperty.Name
                    Dim strValue As String = String.Empty
 
                    Dim obj As Object = objItem.Item(strProperty)
 
                    If (obj IsNot Nothing) Then strValue = obj.ToString
 
                    objWMIClass.Add(New WMIItem(strProperty, strValue))
                Next
 
                Exit For
            Next
 
            mlstWMIClasses.Add(objWMIClass)
        Catch ex As Exception
            'Error-Handling
        End Try
    End Sub

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein