http://www.perlmonks.org?node_id=443641


in reply to Re^2: How to find GUID of Typelibrary for a given OLE Object?
in thread How to find GUID of Typelibrary for a given OLE Object?

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 (); }

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

Replies are listed 'Best First'.
Re^4: How to find GUID of Typelibrary for a given OLE Object?
by Anonymous Monk on Mar 31, 2005 at 09:08 UTC
    Thanks for your answer! Is this hack GUARANTEED to work for any ActiveX object name (i.e. is this naming scheme a some form of a standard)? (I mean is there anything regarding this in OLE specs)? Can I rely on this hack in my code?
      Using Perl with OLE. There are various tools available in the market to get the GUID's. The one that comes with Active Perl k/a browser works well. And then there are ways to track it via registry and Microsoft OLE viewer also.