Open Outlook 2003, 2007, 2010 or 2013 secure temp olk folderlocation.vbs script

A useful script, especially for those high maintenance users who insist on editing excel or word documents they open from Outlook and then frantically calling your help desk complaining they can't locate files they saved while working in Outlook. Place the script on their desktop and have them run it first before calling your help desk.. Works with Outlook 2003, 2007, 2010 and now also with Outlook 2013.

 ' This script will open the Outlook Secure Temp folder location for Outlook   
  ' 2003, 2007, 2010 and 2013   
  Dim WshShell, strValue, openlocation   
  Set WshShell = WScript.CreateObject(“WScript.Shell”)   
  const HKEY_CURRENT_USER = &H80000001   
  on error resume next   
  strComputer = “.”   
  Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” &_   
  strComputer & “rootdefault:StdRegProv”)   
  strKeyPath = “SoftwareMicrosoftOffice11.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice11.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  strKeyPath = “SoftwareMicrosoftOffice12.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice12.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  strKeyPath = “SoftwareMicrosoftOffice14.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice14.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  strKeyPath = “SoftwareMicrosoftOffice15.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  If IsNull(dwValue) Then   
  Else   
  strKeyPath = “SoftwareMicrosoftOffice15.0OutlookSecurity”   
  strValueName = “OutlookSecureTempFolder”   
  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue   
  openlocation = “EXPLORER.exe /e,” & strValue   
  wShshell.Run openlocation   
  End If   
  WScript.Quit