use strict;
use warnings;
use Data::Dumper;
use Win32::OLE;

my $refresher = Win32::OLE->CreateObject("WbemScripting.SWbemRefresher")
    or die "Failed to Create refresher object ". Win32::OLE->LastError() ."\n";

my $wmi = Win32::OLE->GetObject("winmgmts://./root/cimv2")
    or die "Failed to get object ". Win32::OLE->LastError() ."\n";

# not sure we need this but I tried
$wmi->Security_->Privileges->AddAsString( 'SeDebugPrivilege', 1 ); 

my $refreshable = 
   $refresher->AddEnum($wmi,"Win32_PerfFormattedData_PerfProc_Process")
    or die "Could not get refreshable item ". Win32::OLE->LastError() ."\n";

$refresher->Refresh();

##</code><code>##

C:\Documents and Settings\1161732\Perltest>scratch.pl
Could not get refreshable item OLE exception from "SWbemRefresher":

Access denied

Win32::OLE(0.1709) error 0x80041003
    in METHOD/PROPERTYGET "AddEnum"

C:\Documents and Settings\1161732\Perltest>