Проверка установленных приложений - Visual Basic .NET

Imports Microsoft.Win32
 
Using hklm As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
    Using keyUninstall As RegistryKey = hklm.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", False)
        Dim uninstallKeys() As String = keyUninstall.GetSubKeyNames()
        For Each uninstallName In uninstallKeys
            Using key As RegistryKey = keyUninstall.OpenSubKey(uninstallName, False)
                Dim name As String = key.GetValue("DisplayName", "")
                Dim version As String = key.GetValue("DisplayVersion", "")
                If Name.Length > 0 AndAlso version.Length > 0 Then
                    Console.WriteLine("{0}. v{1}", name, version)
                End If
            End Using
        Next
    End Using
End Using