Set Pagefile settings

Star InactiveStar InactiveStar InactiveStar InactiveStar Inactive
 

'<!--********************************************************************
'*
'* File: Config-Pagefile.vbs
'* Author: Frank Wenzel
'* Created: 19.08.2010
'* Version: 1.00
'* Modified: 00.00.0000
'*
'* Description: set pagefile settings as defined in our environment
'*
'* needed: WSH 5.6, WMI
'*
'*
'*
'********************************************************************-->
Option Explicit

Sub ConfigPageFile
Dim strComputer, objWMIService, objSWbemServices, colPageFile, colSWbemObject
Dim colSWbemObjectSet, objSWbemObject, objPageFile, SystemRAM, intNewSize, SystemType
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_ComputerSystem")
For Each objSWbemObject In colSWbemObjectSet
SystemRAM = objSWbemObject.TotalPhysicalMemory / 1024
SystemType = objSWbemObject.SystemType
Next
If InStr(UCase(SystemType), "X64") > 0 Then
If SystemRAM * 1.5 > 8000000 Then
intNewSize = 8193
Else
intNewSize = Round(SystemRAM / 1024 * 1.5)
End If
Else
intNewSize = 4096
End If
For Each objPageFile In colPageFile
objPageFile.InitialSize = intNewSize
objPageFile.MaximumSize = intNewSize
objPageFile.Put_
Next
End Sub

ConfigPageFile