http://qs1969.pair.com?node_id=138875


in reply to Re: Re: IIS/ADSI/Win32-OLE
in thread IIS/ADSI/Win32-OLE

According to MSDN this should work... 
use strict;
use Win32::OLE;

my $server = "ogre";

my $secobj = Win32::OLE->GetObject("IIS://$server/W3svc/1/Root")
     or die "Couldn't get object:$!\n";

my $MyIPSec = $secobj->{IPSecurity};
$MyIPSec->{GrantByDefault} = 0;

$secobj->{IPSecurity} = $MyIPSec;
$secobj->SetInfo();

[download]


Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;

Replies are listed 'Best First'.
Re: Re: Re: Re: IIS/ADSI/Win32-OLE
by jjhorner (Hermit) on Jan 15, 2002 at 20:39 UTC

    No joy. No errors, either. Very hard to debug an application when there are never errors printed...

    Thanks for your help. I'll continue to look at this. I can't seem to set any part of the IPSecurity key. I can set redirects, add virtual directories, and most other things, but I can't set this key. 

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

In Section Seekers of Perl Wisdom