SCCM-TOOLS.COM - Right Click

Cache Size

Right click on a computer or a collection and change the cache size.

Code

-----------Single computer--------changecache-Comp.vbs-------------------
On Error Resume Next
'****************************************************************
'   Change client Cache
'    Changecache [computer name] [Cache size in MB]
'  Created by Matthew
'****************************************************************
'if no computer name is given then it will just exit
'if no cache size if given then it will prompt for a size in MB
'a slient failure will occur if the machine is not reachable

ComputerName = wscript.arguments.item(0)  ' computer name
CacheSize = wscript.arguments.item(1)  ' cache size in Mbs
if len(ComputerName)=0 then
  wscript.quit
end if

if len(CacheSize)=0 then
  CacheSize =InputBox("Cache size in MBs:")
  if CacheSize < 0 or Cachesize > 118378  then ' 118378 max cache size allowed
     'if the user enters nothing or a alpha character then default to 2GB
     CacheSize =2000
  end if
end if

VbsFile= "\\" & ComputerName  & "\admin$\changecache.vbs"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(VbsFile)
if Err.Number=76 then
  Err.Clear   ' Clear the error and exit
  wscript.quit
end if

objFile.WriteLine("Dim oUIResource")
objFile.WriteLine("Dim oCache")
objFile.WriteLine("Set oUIResource = CreateObject("& chr(34) &"UIResource.UIResourceMgr"& chr(34) &")")
objFile.WriteLine("Set objCacheInfo = oUIResource.GetCacheInfo")
objFile.WriteLine("objCacheInfo.TotalSize = " & CacheSize )
objFile.WriteLine("Set oUIResource = Nothing")
objFile.WriteLine("Set objCacheInfo = Nothing")
objFile.Close
set objFile = nothing

'now run the file, a slient failure will occur if the machine is not reachable
'''''''''''''''''''''''''''strCommand = "cscript " & VbsFile
strCommand = "wscript " & VbsFile
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" _
   & ComputerName & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = SW_NORMAL
Set objProcess = objWMIService.Get("Win32_Process")
intReturn = objProcess.Create (strCommand, Null, objConfig, intProcessID)
WScript.Quit
/////////////////////cache-comp.Xml///////////////////////////////////
<ActionDescription Class="Group" DisplayName="ConfigMgr" MnemonicDisplayName="ConfigMgr Tools" Description="ConfigMgr Tools" SqmDataPoint="100">
  <ActionGroups>
     <ActionDescription Class="Executable" DisplayName="Change Cache Size" MnemonicDisplayName="Cache Size Description="Change Cache on Single Machine">
        <Executable>
          <FilePath>cscript changecache-Comp.vbs</FilePath>
          <Parameters>##SUB:Name##</Parameters>
        </Executable>
      </ActionDescription>

</ActionGroups>

</ActionDescription>
///////////////////////////////////////////////////////////////////////////

-----------------------------------------------------

-----------Collection of computers--------changecache-Coll.vbs-------------------
On Error Resume Next
'****************************************************************
'   Change client Cache
'    Changecache [Collection ID] [Cache size in MB]
'  Created by Matthew
'****************************************************************
'if no computer name is given then it will just exit
'if no cache size if given then it will prompt for a size in MB
'a slient failure will occur if the machine is not reachable

'Get the variables.....
SMSCollectionID= wscript.arguments.item(0)  ' Collection ID
CacheSize = wscript.arguments.item(1)  ' cache size in Mbs
if len(SMSCollectionID)=0 then
  wscript.quit
end if

'Get the cache size...

'we are looking at multiple computers loop
   strQuery = "select * from SMS_CM_RES_COLL_" & SMSCollectionID
   Set Computers= SWbemServices.ExecQuery(strQuery)
   for each Computer in Computers
        GetComputers(Computer)
   Next
WScript.Quit
'''''''''''''''''''''''''''''''''''''''''''''''''''
sub GetComputers(ComputerName)

'now run the file, a slient failure will occur if the machine is not reachable
'''''''''''''''''''''''''''
strCommand = "wscript " & VbsFile
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" _
   & ComputerName & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = SW_NORMAL
Set objProcess = objWMIService.Get("Win32_Process")
intReturn = objProcess.Create (strCommand, Null, objConfig, intProcessID)

end sub
-----------------------------------------------------------------
///////////////////cache-col.Xml////////////////////////////////////
<ActionDescription Class="Group" DisplayName="ConfigMgr" MnemonicDisplayName="ConfigMgr" Description="ConfigMgr Tools" SqmDataPoint="53">
  <ActionGroups>
     <ActionDescription Class="Executable" DisplayName="Cache Size (Collection)" MnemonicDisplayName="cache collection" Description="Change cache size for entire collection">
        <Executable>
          <FilePath>changecache-Coll.vbs</FilePath>
          <Parameters>##SUB:CollectionID##</Parameters>
        </Executable>
      </ActionDescription>

</ActionGroups>
</ActionDescription>
///////////////////////////////////////////////////////

----------------------------------------------------

Documentation