Re: How to find GUID of Typelibrary for a given OLE Object?

[barbie]

I believe the following is the kind of thing you're after:

package Typelibs;

use warnings;
use strict;

use Win32::OLE::Const;

# list of all registered type libraries
my @Library;

Win32::OLE::Const->EnumTypeLibs(sub {
    my ($clsid,$title,$version,$langid,$filename) = @_;
    return unless $version =~ /^([0-9a-fA-F]+)\.([0-9a-fA-F]+)$/;
    my ($maj,$min) = (hex($1), hex($2));
    push @Library, [$clsid,$title,$maj,$min,$langid,$filename];
});

sub ExistsTypeLib {
    my $typelib = shift;
    for my $lib (@Library) {
        return @$lib    if($lib->[1] =~ /^$typelib/);
    }
    return undef;
}

1;

You can then call TypeLibs::ExistsTypeLib('Microsoft Excel') and it should return a list consisting of the ClassID, Title, Major Version Number, Minor Version Number, LanguageID, and Executable Filename.

I now have a modified version to check whether Outlook is installed for my Outlook CPAN modules.