Hi List, I am using Win32::OLE to access a custom COM interface (Secure FTP Server by GlobalSCAPE). Mostly I have been successful after much reading, experimentation and gnashing of teeth but how to retrieve a VARIANT array totally escapes me. The only interface description I have is this IDL:
Returns an array of allowed IP masks. HRESULT GetAllowedMasks([out,retval] VARIANT *aMasks); The array aMasks may be any size and (I assume) contains VT_BSTR elements such as 'nnn.nnn.nnn.nnn-nnn' where any or all octets may contain a range separated by a hyphen. I can instantiate the server object and do good things with simple data types such as VT_BSTR and VT_BOOL : # For example, this will add an IP mask: $ServerObj = Win32::OLE->new( 'COMInterface.CIServer'); my $bstrMask = Win32::OLE->Variant->(VT_BSTR, '111.112.113.114-119'); my $boolTrue = Win32::OLE->Variant->(VT_BOOL, 1); $ServerObj ->AddIPAccessRule($bstrMask,$boolTrue); $ServerObj ->ApplyuChanges(); $ServerObj ->close(); But I have been totally unsuccessful in retrieving the array containing the IP Masks. At this point I'm not even sure what the code should look like, arrrgh. Unfortunately, there is a lot of the Win32::OLE doc that is over my head! Any help, examples, links, etc. will really be appreciated. Best regards, Sturdy _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
