VBScript to Set SMS Client Cache Location

Need to set the SMS Client Cache Location? Well it's pretty easy, here's a basic VBScript to help you get started. This will set the Advanced Clients Cache Location, just be careful to set it correctly. Test, Test, Test! I'd suggest an SMS Package with different cache locations passed via command line (in seperate programs) for maximum flexibility.

---- Begin VBScript ----

On Error Resume Next

Dim oUIResourceMgr
Dim oCache

Set oUIResourceMgr = CreateObject("UIResource.UIResourceMgr")
Set oCacheInfo = oUIResourceMgr.GetCacheInfo

' Set the new location, default is "C:\WINDOWS\system32\CCM\Cache"
oCacheInfo.Location = "C:\WINDOWS\system32\CCM\Cache"

'Return the error so SMS can report it
WScript.Quit(Err)

---- End VBScript ----