Increasing Cache size on Advanced Client

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Morpheous (jcampaz_at_yahoo.com)
Date: 08/27/04 

Date: Fri, 27 Aug 2004 10:58:56 -0400

I was having a hard time figuring out how to automate the increase of the
advanced client cache size (by default it is set to 250mb, I wanted to
increase at least to 700mb). I did not want to walk around and manually do
this. Finally have a script that does it. I thought it might help if
anyone else has the same issues. The script sets the cache to 1000mb. Here
it is.

On Error Resume Next

Dim nValueToCheck
Dim nValueToSet

Dim oUIResource
Dim oCache

Set oUIResource = CreateObject("UIResource.UIResourceMgr")
Set objCacheInfo = oUIResource.GetCacheInfo

nValueToCheck = 250
nValueToSet = 1000

' Set the cache size if it's less than or equal to 250
if objCacheInfo.TotalSize <= nValueToCheck then
objCacheInfo.TotalSize = nValueToSet
end if

Relevant Pages