I understand this may not be the best place to ask this, but I'm about fed up with ADSI.

I'm trying to create a utility that will add to the IPSecurity/IPGrant/IPDeny array in ADSI. Using the Win32::OLE module, I have this code: 

use strict;
use Win32::OLE;
use Win32::OLE::Enum;
use Carp;

eval {
     my $newip = "13.11.11.11,255.255.255.0";
     Win32::OLE->Option(Warn => 3);
     my $secobj = Win32::OLE->GetObject("IIS://ogre/W3svc/1/Root") or 
+croak "Couldn't get object: $!\n";
     
     my $MyIPSec = $secobj->{IPSecurity};
     my $ref_IPList = $MyIPSec->{IPGrant};
     my @IPList = @{$ref_IPList};
     foreach my $i (@IPList) {
          print "Granted IP: $i\n";
     }
     push(@IPList,$newip);
     my $ref_newIPList = \@IPList;

     $MyIPSec->IPGrant = \@IPList or croak "ERROR: Couldn't set variab
+le: $!\n";
#     $MyIPSec->SetProperty("IPDeny",$ref_newIPList) or croak "ERROR: 
+ Couldn't SetProperty: $!\n";
#    $MyIPSec->{IPGrant}->create($newip) or croak "ERROR:  Couldn't cr
+eate new grant: $!\n";

#    $obj_grant->($newip) or croak "ERROR: Couldn't create new grant: 
+$!\n";
#    $MyIPSec->IPGrant(@IPList) or carp "Couldn't do SetInfo: $!\n";
    $MyIPSec->SetProperty("IPGrant",$ref_IPList) or carp "WARNING: Cou
+ldn't SetInfo(): ".Win32::OLE->LastError().".\n";

     
    my $secobjnew = Win32::OLE->GetObject("IIS://ogre/W3svc/1/Root") o
+r croak "Couldn't get object: $!\n";
    my $MyIPSecnew = $secobjnew->{IPSecurity};
    foreach my $newip (@{$MyIPSecnew->{IPGrant}}) {
          print "IP Granted (new): $newip\n";
     }
};
print Win32::OLE->LastError()."\n" if (Win32::OLE->LastError());

[download]

As you can probably see, I have tried almost every method I can think of to set the $MyIPSec->IPGrant Property/Method to the correct value. I can get my script to recognize the right data, and return it when I dereference the array returned by $MyIPSec->{IPGrant}. The right data, however, is never committed to the server. 

J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/

In reply to IIS/ADSI/Win32-OLE by jjhorner

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.