[green]
'==========================================================================
'
' NAME: DumpsterAlwaysOn.vbs
'
' AUTHOR: Mark D. MacLachlan , itSynergy
' URL: [URL unfurl="true"]http://www.TheSpidersParlor.com[/URL]
' COPYRIGHT (c) 2005 All Rights Reserved
' DATE : 10/14/2005
'
' COMMENT: Allows recovery of deleted items from all Outlook Folders.
'
'==========================================================================[/green]
on error resume next
Dim path
Set WSHShell = Wscript.CreateObject("WScript.Shell")
path = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange\Client\Options\"
WSHShell.RegWrite path & "DumpsterAlwaysOn","1","REG_DWORD"