#!/usr/bin/perl 
#
use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Variant;


Win32::OLE->Option(Warn => 3);
my $Count = Win32::OLE->EnumAllObjects(sub {
my $Object = shift;
my $Class = Win32::OLE->QueryObjectType($Object);
printf "# Object=%s Class=%s\n", $Object, $Class;
});
print "Found $Count OLE Object(s)\n";