in reply to Re^8: How to write a client for accessing COM server
in thread How to write a client for accessing COM server

use Win32::OLE;
use warnings;
package main;
sub test()
{
my $TM = Win32::OLE->new('TestServ_Perl.PerlServ.1')|| die;
print $TM;
print "\n";
if( Win32::OLE->LastError() )
{ print "Error creating the .NET COM Server: ". Win32::OLE->LastError();
}
$test = 0;
$test = $TM ->TestObj(34);
print "The value returned from server is ------";
print $test;
} test();
Im able to access the COM server using perl script
Thanks for all your help
  • Comment on Re^9: How to write a client for accessing COM server

In Section Seekers of Perl Wisdom