> Try this...
>
> $cmCmd->Properties('Output stream')->{'Value'} = $sResponseStream;
>
> I can't test it but I think that's the correct invocation.
>
> Steven
Actually that is equivalent to what I had:
$cmCmd->{'Properties'}->{'Output stream'}->{'Value'} = $sResponseStream;
What ended up working (finally!) was this:
my $sResponseStream = Win32::OLE->new('ADODB.Stream');
$sResponseStream->Open();
my $vObj = Variant(VT_VARIANT|VT_BYREF, $sResponseStream);
$cmCmd->{'Properties'}->{'Output Stream'}->{'Value'} = $vObj;
$cmCmd->Execute({ 'Options' => adExecuteStream });
Luke
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
