diff --git a/scripts/meterpreter/enum_powershell_env.rb b/scripts/meterpreter/enum_powershell_env.rb
new file mode 100644
index 0000000000..cbc8681e5e
--- /dev/null
+++ b/scripts/meterpreter/enum_powershell_env.rb
@@ -0,0 +1,119 @@
+# $Id$
+#Meterpreter script for enumerating Microsoft Powershell settings.
+#Provided by Carlos Perez at carlos_perez[at]darkoperator[dot]com
+@client = client
+
+@@exec_opts = Rex::Parser::Arguments.new(
+	"-h" => [ false,"Help menu." ]
+)
+
+@@exec_opts.parse(args) { |opt, idx, val|
+	case opt
+	when "-h"
+		print_line("enum_scripting_env -- Enumerates PowerShell and WSH Configurations")
+		print_line("USAGE: run enum_scripting_env")
+		print_line(@@exec_opts.usage)
+		raise Rex::Script::Completed
+	end
+}
+#Support Functions
+#-------------------------------------------------------------------------------
+def enum_users
+	os = @client.sys.config.sysinfo['OS']
+	users = []
+	user = @client.sys.config.getuid
+	path4users = ""
+	sysdrv = @client.fs.file.expand_path("%SystemDrive%")
+
+	if os =~ /7|Vista|2008/
+		path4users = sysdrv + "\\Users\\"
+		profilepath = "\\Documents\\WindowsPowerShell\\"
+	else
+		path4users = sysdrv + "\\Documents and Settings\\"
+		profilepath = "\\My Documents\\WindowsPowerShell\\"
+	end
+
+	if user == "NT AUTHORITY\\SYSTEM"
+		print_status("Running as SYSTEM extracting user list..")
+		@client.fs.dir.foreach(path4users) do |u|
+			userinfo = {}
+			next if u =~ /^(\.|\.\.|All Users|Default|Default User|Public|desktop.ini|LocalService|NetworkService)$/
+			userinfo['username'] = u
+			userinfo['userappdata'] = path4users + u + profilepath
+			users << userinfo
+		end
+	else
+		userinfo = {}
+		uservar = @client.fs.file.expand_path("%USERNAME%")
+		userinfo['username'] = uservar
+		userinfo['userappdata'] = path4users + uservar + profilepath
+		users << userinfo
+	end
+	return users
+end
+
+
+
+#-------------------------------------------------------------------------------
+def enum_powershell
+	#Check if PowerShell is Installed
+	if registry_enumkeys("HKLM\\SOFTWARE\\Microsoft\\").include?("PowerShell")
+		print_status("Powershell is Installed on this system.")
+		powershell_version = registry_getvaldata("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellEngine","PowerShellVersion")
+		print_status("Version: #{powershell_version}")
+		#Get PowerShell Execution Policy
+		begin
+			powershell_policy = registry_getvaldata("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1\\ShellIds\\Microsoft.PowerShell","ExecutionPolicy")
+		rescue
+			powershell_policy = "Restricted"
+		end
+		print_status("Execution Policy: #{powershell_policy}")
+		powershell_path = registry_getvaldata("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1\\ShellIds\\Microsoft.PowerShell","Path")
+		print_status("Path: #{powershell_path}")
+		if registry_enumkeys("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1").include?("PowerShellSnapIns")
+			print_status("Powershell Snap-Ins:")
+			registry_enumkeys("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellSnapIns").each do |si|
+				print_status("\tSnap-In: #{si}")
+				registry_enumvals("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellSnapIns\\#{si}").each do |v|
+					print_status("\t\t#{v}: #{registry_getvaldata("HKLM\\SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellSnapIns\\#{si}",v)}")
+				end
+			end
+		else
+			print_status("No PowerShell Snap-Ins are installed")
+
+		end
+		if powershell_version =~ /2./
+			print_status("Powershell Modules:")
+			powershell_module_path = @client.fs.file.expand_path("%PSModulePath%")
+			@client.fs.dir.foreach(powershell_module_path) do |m|
+				next if m =~ /^(\.|\.\.)$/
+				print_status("\t#{m}")
+			end
+		end
+		tmpout = []
+		enum_users.each do |u|
+			begin
+			@client.fs.dir.foreach(u["userappdata"]) do |p|
+				next if p =~ /^(\.|\.\.)$/
+				if p =~ /Microsoft.PowerShell_profile.ps1/
+					ps_profile = session.fs.file.new("#{u["userappdata"]}Microsoft.PowerShell_profile.ps1", "rb")
+					until ps_profile.eof?
+						tmpout << ps_profile.read
+					end
+					ps_profile.close
+					if tmpout.length == 1
+						print_status("Profile for #{u["username"]} not empty, it contains:")
+						tmpout.each do |l|
+							print_status("\t#{l.strip}")
+						end
+					end
+				end
+			end
+			rescue
+			end
+		end
+
+		
+	end
+end
+enum_powershell
\ No newline at end of file