To Increase SMS Client CacheSize

On Error Resume Next

Dim oUIResManager

Dim oCache

Dim CacheSize

CacheSize=3086

Set oUIResManager = createobject("UIResource.UIResourceMgr")

If oUIResManager Is Nothing Then

    wscript.echo "Could not create Resource Manager - quitting"

    wscript.quit

End If

Set oCache=oUIResManager.GetCacheInfo()

If oCache Is Nothing Then

    Set oUIResManager=Nothing

    wscript.echo "Could not get cache info - quitting"

    wscript.quit

End If

oCache.TotalSize=CacheSize