##
# WARNING: Metasploit no longer maintains or accepts meterpreter scripts.
# If you'd like to improve this script, please try to port it as a post
# module instead. Thank you.
##


# Meterpreter script for listing installed applications and their version.
# Provided: carlos_perez[at]darkoperator[dot]com

#Options and Option Parsing
opts = Rex::Parser::Arguments.new(
  "-h" => [ false, "Help menu." ]
)

def app_list
  tbl = Rex::Text::Table.new(
    'Header'  => "Installed Applications",
    'Indent'  => 1,
    'Columns' => [
      "Name",
      "Version"
    ])
  appkeys = ['HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall',
    'HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall' ]
  threadnum = 0
  a = []
  appkeys.each do |keyx86|
    soft_keys = registry_enumkeys(keyx86)
    if soft_keys
      soft_keys.each do |k|
        if threadnum < 10
          a.push(::Thread.new {
              begin
                dispnm = registry_getvaldata("#{keyx86}\\#{k}","DisplayName")
                dispversion = registry_getvaldata("#{keyx86}\\#{k}","DisplayVersion")
                if dispnm =~ /\S*/
                  tbl << [dispnm,dispversion]
                end
              rescue
              end
            })
          threadnum += 1
        else
          sleep(0.05) and a.delete_if {|x| not x.alive?} while not a.empty?
          threadnum = 0
        end
      end
    end


  end
  print_line("\n" + tbl.to_s + "\n")
end

opts.parse(args) { |opt, idx, val|
  case opt
  when "-h"
    print_line "Meterpreter Script for extracting a list installed applications and their version."
    print_line(opts.usage)
    raise Rex::Script::Completed

  end
}
if client.platform == 'windows'
  app_list
else
  print_error("This version of Meterpreter is not supported with this Script!")
  raise Rex::Script::Completed
end