Dim WMISearcher As System.Management.ManagementObjectSearcher = _
            New System.Management.ManagementObjectSearcher("SELECT * FROM" & _
            "Win32_Product")
        Dim col As System.Management.ManagementObjectCollection = _
        WMISearcher.Get()
        Dim ien As _
        System.Management.ManagementObjectCollection.ManagementObjectEnumerator _
        = col.GetEnumerator
        Dim got As Boolean
        Dim mo As System.Management.ManagementObject
        Do
            Try
                got = ien.MoveNext()
                If got Then
                    mo = ien.Current
                    Debug.WriteLine("Product: " & mo("Description") & "" & _
                      "Caption: " + mo("Caption") + " Vendor: " & mo("Vendor") _
                      & " Version: " & mo("Version"))
                End If
            Catch ex As System.Exception
                Debug.WriteLine(ex.Message)
            End Try
        Loop While got

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist