Dim strComputer, objWMIService, objSWbemServices, colPageFile, colSWbemObject
Dim colSWbemObjectSet, objSWbemObject, objPageFile, SystemRAM, strNewSize
strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
Set colPageFile = objWMIService.ExecQuery ("SELECT * FROM Win32_PageFileSetting")
Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each objSWbemObject In colSWbemObjectSet
  SystemRAM = Int(objSWbemObject.TotalPhysicalMemory / 1024)
Next

For Each objPageFile In colPageFile
  strNewSize = Int(1.5 * SystemRAM)
  If strNewSize>4095 then strNewSize=4095
  objPageFile.InitialSize = strNewSize
  objPageFile.MaximumSize = strNewSize
  objPageFile.Put_
Next