Robert,
its easy once you use the right Win32::OLE support module :)
check out this WMI sample that shows how to allocate for an 8204 array.
http://www.techiegroups.com/showthread.php?t=48703
Here's an object browser for scripting (by me) to help see the properties and
methods
http://www.tlviewer.org/tlviewer/
--
Mark
[EMAIL PROTECTED] wrote: 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
---------------------------------
Now that's room service! Choose from over 150,000 hotels
in 45,000 destinations on Yahoo! Travel to find your fit._______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
