problems whit Win32::OLE

[Argenis Perez]

Hi my friends
I have a problem calling a method in a Connectio whit reflection from IBM

here is the code

#!c:/perl/bin/perl.exe
#use strict;
    use Fcntl;
    use SDBM_File;
    use Win32::OLE qw(EVENTS);
    use CGI qw(:standard) ;


    my $Quit;
    tie my %adb, 'SDBM_File', 'adb', O_RDWR|O_CREAT, 0744;
    my $reflection = Win32::OLE->new('Reflection4.Application');
    #Win32::OLE->WithEvents($ie, 'BrowserEvents', 'DWebBrowserEvents2');
    $reflection->{Visible} = 1;
    $reflection->{Caption} = "Operador WAP - 4TEL";
    $reflection->{ConnectionType}="BEST-NETWORK";
    $reflection->{ConnectionSettings}="Host 161.196.68.141";
    $reflection->{ConnectionSettings}="DefaultNetwork TELNET";  
    $reflection->{Connect};
    $reflection->{OleServerName}="n4001";   
    $reflection->{Transmit}="n4001";
# in this statement is teh error
    $reflection->{TransmitTerminalKey}= "rcIBMTabKey"; 
    $reflection->{TransmitTerminalKey(846)};
# ******************************
print "Finished";
--
"Es imposible calcular cuantas buenas ideas 
se abandonan todos los días 
como resultado de relaciones difíciles de manejar."

- John P. Kotter - 




  






Saludos
Argenis Pérez








 




__________________________________________________________________
Get your own FREE, personal Netscape Webmail account today at 
http://webmail.netscape.com/