Sample script for retriving user and system enviroment variables

git-svn-id: file:///home/svn/framework3/trunk@9248 4d416f70-5f16-0410-b530-b9f4589650da

scripts/meterpreter/get_env.rb

@@ -0,0 +1,37 @@
+# $Id$
+#-------------------------------------------------------------------------------
+#Options and Option Parsing
+opts = Rex::Parser::Arguments.new(
+	"-h" => [ false, "Help menu." ]
+)
+var_names = []
+var_names << registry_enumvals("HKEY_CURRENT_USER\\Volatile Environment")
+var_names << registry_enumvals("HKEY_CURRENT_USER\\Environment")
+var_names << registry_enumvals("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment")
+
+def list_env_vars(vars)
+	print_status("Getting all System and User Variables")
+	tbl = Rex::Ui::Text::Table.new(
+			'Header'  => "Enviroment Variable list",
+			'Indent'  => 1,
+			'Columns' =>
+				[
+					"Name",
+					"Value"
+				])
+	var_names.flatten.each do |v|
+		tbl << [v,@client.fs.file.expand_path("\%#{v}\%")]
+	end
+	print("\n" + tbl.to_s + "\n")
+end
+
+
+opts.parse(args) { |opt, idx, val|
+	case opt
+	when "-h"
+		print_line "Meterpreter Script for extracting a list of all System and User environment variables."
+		print_line(opts.usage)
+		raise Rex::Script::Completed
+
+	end
+}