Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Re: Re: IIS/ADSI/Win32-OLE

by $code or die (Deacon)
on Jan 15, 2002 at 15:32 UTC ( #138875=note: print w/replies, xml ) Need Help??

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();

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

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://138875]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2021-10-26 09:54 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (90 votes). Check out past polls.