Dim WMISearcher As New System.Management.ManagementObjectSearcher( _
          "SELECT * FROM Win32_Product Where Description Like 'Microsoft " & _
          "Office%'")
        Dim col As System.Management.ManagementObjectCollection = _
        WMISearcher.Get()
        Dim mo As System.Management.ManagementObject
        For Each mo In col
            Try
                Debug.WriteLine("Product: " & mo("Description") & " Caption: " _
                  + mo("Caption") + " Vendor: " & mo("Vendor") & " Version: " & _
                  mo("Version"))
            Catch ex As System.Exception
                Debug.WriteLine(ex.Message)
            End Try
        Next

________
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