use strict; 
use warnings;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;

my $server= '.' ; # "vsin0vw148.svr.us.jpmchase.net";
my $wmiService = Win32::OLE->GetObject("winmgmts:\\\\$server\\root\\CIMV2");
if (!$wmiService) {
	print "... WMI connection failed! \n";
}
my $PageFiles = $wmiService->ExecQuery("Select * from Win32_PageFileSetting");

for (in($PageFiles)) {
# 	$_->{InitialSize} = 300;
# 	$_->{MaximumSize} = 330;
#	$_->LetProperty('InitialSize', 300);
#	$_->LetProperty('MaximumSize', 330);
	$_->LetProperty(InitialSize => 300);
	$_->LetProperty(MaximumSize => 330);
	$_->SetInfo();
	$_->Put();
	last;           # just change 1st one
}

exit 0;