Help for this page
my $objWMI = Win32::OLE->GetObject("winmgmts:\\\\$strComputer\\root\\c +imv2"); # or die "Failed to create object";
my $objWMI = Win32::OLE->GetObject("winmgmts:\\\\$strComputer\\root\\c +imv2"); die "GetObject(winmgmts:\\\\$strComputer\\root\\cimv2) failed - " . Wi +n32::OLE->LastError() if Win32::OLE->LastError();