# This code displays the current page files on the system.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE qw(in);
$Win32::OLE::Warn = 3;

# ------ SCRIPT CONFIGURATION ------
$strComputer = '.';
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colPF = $objWMI->InstancesOf('Win32_PageFileUsage');
foreach my $objPF (in $colPF) {
    print $objPF->Name, "\n";
    print '  Initial Size: ' . $objPF->AllocatedBaseSize, "\n";
    print '  Max Size: ' . $objPF->CurrentUsage, "\n";
    print '  Peak Usage: ' . $objPF->PeakUsage, "\n";
    print "\n";
}