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

MFG Gizmo