Search the Community

So I adapted and adjusted an AutoIT script found here http://social.technet.microsoft.com/Forums/en-US/exchangesvrclients/thread/c8b06311-3036-4d51-a028-3ee58ac536fd The found script was a little slower than expected and it didn't really do anything but tell me what the values were. So I made it into a UDF (just to keep space clean in my scripts), allowed it find what outlook version existed and configured the setting appropriately. This could be adjusted to set Cached Mode to enabled if you so willed it. ; Disable cache mode for Office 2003, 2007, 2010 _ExchangeCachedMode() Func _ExchangeCachedMode() CONSTANT $HKCU_Profiles = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles" CONSTANT $ExchCachedModeName = "00036601" CONSTANT $HKCU_MailDefProf = RegRead($HKCU_Profiles,"DefaultProfile") CONSTANT $HKCU_MailProfile = $HKCU_Profiles & "\" & $HKCU_MailDefProf ; Set initial value for RegEnumKey $a = 1 While 1 ; Parse through each entry under Profiles $RegKey = RegEnumKey($HKCU_MailProfile,$a) if @error then ExitLoop ; Set initial value for RegEnumVal $b = 1 While 2 ; Check each profile for the key $ExchCachedModeName $RegValue = RegEnumVal($HKCU_MailProfile & "\" & $RegKey,$b) if @error then ExitLoop ; If key matches then process If $RegValue = $ExchCachedModeName Then ; Read value to see if it needs to be changed, probably not necessary ;$strCachModeSetting = RegRead($HKCU_MailProfile & "\" & $RegKey,$ExchCachedModeName) ; Set cached mode to Disabled ;IF StringInStr($strCachModeSetting,"0x041") = 0 then Select ; Check to see if Outlook 2010 or 2007 is installed, use this first Case FileExists("C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe") or FileExists("C:\Program Files (x86)\Microsoft Office\Office13\outlook.exe") _ or FileExists("C:\Program Files\Microsoft Office\Office14\outlook.exe") or FileExists("C:\Program Files\Microsoft Office\Office13\outlook.exe") Regwrite($HKCU_MailProfile & "\" & $RegKey,$ExchCachedModeName,"REG_BINARY",Binary('0x04100000')) ; Check to see if Outlook 2003 is installed (but shouldn't be), use secondary Case FileExists("C:\Program Files (x86)\Microsoft Office\Office12\outlook.exe") or FileExists("C:\Program Files\Microsoft Office\Office12\outlook.exe") Regwrite($HKCU_MailProfile & "\" & $RegKey,$ExchCachedModeName,"REG_BINARY",Binary('0x04000000')) EndSelect ; Found entry so you can exit and move onto next profile exitloop EndIf ; Increment value for RegEnumVal $b += 1 Wend ; Incremement value for RegEnumKey $a += 1 Wend EndFunc