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


# Author: Carlos Perez at carlos_perez[at]darkoperator.com
#-------------------------------------------------------------------------------
################## Variable Declarations ##################
@client = client
#-------------------------------------------------------------------------------

######################## Functions ########################
def ls_logged
  sids = []
  sids << registry_enumkeys("HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList")
  tbl = Rex::Text::Table.new(
      'Header'  => "Logged Users",
      'Indent'  => 1,
      'Columns' =>
        [
          "SID",
          "Profile Path"
        ])
  sids.flatten.each do |sid|
    profile_path = registry_getvaldata("HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList\\#{sid}","ProfileImagePath")
    tbl << [sid,profile_path]
  end
  print_line("\n" + tbl.to_s + "\n")
end

def ls_current
  key_base, username = "",""
  tbl = Rex::Text::Table.new(
      'Header'  => "Current Logged Users",
      'Indent'  => 1,
      'Columns' =>
        [
          "SID",
          "User"
        ])
  registry_enumkeys("HKU").each do |sid|
    case sid
    when "S-1-5-18"
      username = "SYSTEM"
      tbl << [sid,username]
    when "S-1-5-19"
      username = "Local Service"
      tbl << [sid,username]
    when "S-1-5-20"
      username = "Network Service"
      tbl << [sid,username]
    else
      if sid =~ /S-1-5-21-\d*-\d*-\d*-\d*$/
      key_base = "HKU\\#{sid}"
      os = @client.sys.config.sysinfo['OS']
      if os =~ /(Windows 7|2008|Vista)/
        username = registry_getvaldata("#{key_base}\\Volatile Environment","USERNAME")
      elsif os =~ /(2000|NET|XP)/
        appdata_var = registry_getvaldata("#{key_base}\\Volatile Environment","APPDATA")
        username = ''
        if appdata_var =~ /^\w\:\D*\\(\D*)\\\D*$/
          username = $1
        end
      end
      tbl << [sid,username]
      end
    end
  end
  print_line("\n" + tbl.to_s + "\n")
end
#-------------------------------------------------------------------------------
####################### Options ###########################
@@exec_opts = Rex::Parser::Arguments.new(
  "-h" => [ false, "Help menu." ],
  "-l" => [ false, "List SID's of users who have loged in to the host." ],
  "-c" => [ false, "List SID's of currently loged on users." ]
  )
@@exec_opts.parse(args) { |opt, idx, val|
  case opt
  when "-h"
    print_line "Meterpreter Script for enumerating Current logged users and users that have loged in to the system."
    print_line(@@exec_opts.usage)
    raise Rex::Script::Completed
  when "-l"
    ls_logged
  when "-c"
    ls_current
  end
}
if client.platform == 'windows'
  if args.length == 0
    print_line "Meterpreter Script for enumerating Current logged users and users that have loged in to the system."
    print_line(@@exec_opts.usage)
    raise Rex::Script::Completed
  end
else
  print_error("This version of Meterpreter is not supported with this Script!")
  raise Rex::Script::Completed
end