I didn't get any errors, but the array didn't change. I changed things around just to see if I could change anything. I can create redirects for directories off of the wwwroot using a Create("IISWebDirectory") type call, but I can't change any of the IPSecurity settings.
The following code outputs: 1: 1
2: 0
3: 1
when ran:
use strict;
use Win32::OLE;
use Win32::OLE::Enum;
use Carp;
eval {
my $newip = "13.11.11.11,255.255.255.255";
my $server = "ogre";
Win32::OLE->Option(Warn => 3);
my $secobj = Win32::OLE->GetObject("IIS://$server/W3svc/1/Root")
+or croak "Couldn't get object:
$!\n";
my $MyIPSec = $secobj->{IPSecurity};
print "1: $MyIPSec->{GrantByDefault}\n";
$MyIPSec->{GrantByDefault} = 0;
print "2: $MyIPSec->{GrantByDefault}\n";
$secobj->{IPSecurity}->{GrantByDefault} = 0;
$secobj->SetInfo();
print "3: $secobj->{IPSecurity}->{GrantByDefault}\n";
};
print Win32::OLE->LastError()."\n" if (Win32::OLE->LastError());
Thanks,
JJ
J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|