Help for this page

Select Code to Download

Select or download this

my ($init, $max) = (256, 301);
for (in($PageFiles)) {
...
      and print "3 Put_: "     . Win32::OLE->LastError . "\n\n";
  last;  # just change 1st one
}

Select or download this

#my $PageFiles = $wmiService->ExecQuery("Select * from Win32_PageFileS
+etting");
my $PageFiles = $wmiService->InstancesOf("Win32_PageFileSetting");