use Win32::TieRegistry;

my $clsid = $Registry->{'HKEY_LOCAL_MACHINE\SOFTWARE\Classes'.
            '\Outlook.Application\CLSID\\'}->{'\\'};

print $Registry->{'HKEY_CLASSES_ROOT\CLSID\\'.$clsid}->{'\\'};

__END__
Microsoft Outlook 8.0 Object Library
[download]

I didn't find the GUID. I hope someone else can help with that...

hth

You do have the "GUID" - that's what is in the $clsid there - or rather that is a GUID.

/J\

Thank you for your answer!

But if I apply your solution to 'Excel.Application' it prints 'Microsoft Excel' (that is NOT a type library, since Win32::OLE::Const->EnumTypeLibs() call doesn't list it as type library). But for some reason your solution works the way I dreamed about for 'Outlook.Application' ( I would find out it too if I digged in registry using 'Outlook.Application' as a sample).

Does anybody have any other ideas?

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;
[download]

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.

Ooops. Actually the return undef should be return () in this instance.

--
Barbie | Birmingham Perl Mongers user group | http://birmingham.pm.org/

Thank you for your sample, but your code won't return anything for 'Excel.Application' (since the type library in question is named 'Microsoft Excel 9.0 Object Library'.. Do you have any other ideas?

This is the PROGID, which doesn't appear to be returned by Win32::OLE. However you could cheat and add the following to the previous code:

sub ApplicationTypeLib {
    my $typelib = shift;
    $typelib =~ s/\.Application//;
    for my $lib (@Library) {
        return @$lib    if($lib->[1] =~ /$typelib/);
    }
    return ();
}
[download]

--
Barbie | Birmingham Perl Mongers user group | http://birmingham.pm.org/