Hello Monks!
I'm currently trying to translate some code from VB to perl. I've come across a problem accessing the non default interface of the application id. It's one single line in VB that I simply haven't found any way to deal with in Perl.
In Application id FOO in Itypelib Viewer: Note that the ImyWantedInterface is declared hidden but also with oleautomation.

coclass myCoclass {
        [default] interface ImyCoclass;
        interface ImyWantedinteface;
        [default, source] dispinterface IOtherEvents;
    };
[download]

VB code snippet

ConnectToServer(myCo, "FOO.myCoClass")
Dim myCoInternal As FOO.imyWantedinterface
Set myCoInternal = myCo
' now myCoInternal can access ImyWantedinterface's methods
myCoInternal.doit ' Works
[download]

Perl

use Win32::OLE

my $myCo = Win32::OLE->new('FOO.myCoClass') or die "Cannot create obje
+ct"; # Works without problems

my $myCoInt =  Win32::OLE->new('FOO.ImyWantedinteface') or die "Cannot
+ create object"; # Gives invalid class string
 
# Also given method doit is in the ImyWantedinterface's declaration
$myCo->doit(); # Fails
[download]

Is there anyway of choosing the interface which I want to query within the object? I have searched loads for a solution but I have not found any answers. I'm no expert on COM and the declarations but it seems to me this is an unusual way to actually declare the COM interface and therefore it might not be implemented in the Win32::OLE?
Any help or suggestions are welcomed!
Boniek