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
                    listbox1.items.add("Product: " & mo("Description") & "" & _
                      "Caption: " + mo("Caption") + " Vendor: " & mo("Vendor") _
                      & " Version: " & mo("Version"))'geändert
                End If
            Catch ex As System.Exception
              msgbox (ex.Message)' geändert
            End Try
        Loop While got