use strict;
use Win32::OLE;
use warnings;

Win32::OLE->Option(Warn => 2);

my $cluster = Win32::OLE->new('MsCluster.Cluster');
print Dumper($cluster);
$cluster->Open('') or die $^E;

##</code><code>##

Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "CommonProperties" at C:\ESC\ORACLE\PERL\LIB/Data/Dump
er.pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "PrivateProperties" at C:\ESC\ORACLE\PERL\LIB/Data/Dum
per.pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "CommonROProperties" at C:\ESC\ORACLE\PERL\LIB/Data/Du
mper.pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "PrivateROProperties" at C:\ESC\ORACLE\PERL\LIB/Data/D
umper.pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "Name" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.pm line 1
58
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "Version" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.pm lin
e 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "QuorumResource" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper
.pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "QuorumLogSize" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.
pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "QuorumPath" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.pm
line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "Nodes" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.pm line
158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "ResourceGroups" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper
.pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "Resources" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.pm l
ine 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "ResourceTypes" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.
pm line 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "Networks" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.pm li
ne 158
Win32::OLE(0.1502) error 0x80020009: "Exception occurred"
    in METHOD/PROPERTYGET "NetInterfaces" at C:\ESC\ORACLE\PERL\LIB/Data/Dumper.
pm line 158
$VAR1 = bless( {
                 'CommonProperties' => undef,
                 'PrivateProperties' => undef,
                 'CommonROProperties' => undef,
                 'PrivateROProperties' => undef,
                 'Name' => undef,
                 'Version' => undef,
                 'QuorumResource' => undef,
                 'QuorumLogSize' => undef,
                 'QuorumPath' => undef,
                 'Nodes' => undef,
                 'ResourceGroups' => undef,
                 'Resources' => undef,
                 'ResourceTypes' => undef,
                 'Networks' => undef,
                 'NetInterfaces' => undef
               }, 'Win32::OLE' );