use 5.006;

use Win32::OLE;
use Win32::OLE::Variant;

$server = "xxx.xxx.xxx.xxx";
$username = "administrator";
$password = 'xxxxxxxxxxxxx';




$locator = Win32::OLE-> new("WbemScripting.SWbemLocator")or die "Can't access WMI on local machine.", Win32::OLE-> LastError;
$serverConn = $locator-> ConnectServer($server, "root/CIMV2", $username, $password) or die "Can't access WMI on remote machine $server: ", Win32::OLE-> LastError;

$colItems = $serverConn-> Get( "Win32_Processor" ) || die "Error: ".Win32::OLE-> LastError();


print "LoadPercentage: ". $colItems->{LoadPercentage} ."\n";