use strict;
use Win32::OLE qw(in);

my $IISServer  = "LocalHost";
my $w3serverID = 3;

#Connect to the metabase directly onto the root of the third website
my $iis_w3c = Win32::OLE->GetObject("IIS://$IISServer/W3SVC/$w3serverID/Root") 
              or die "Can't connect to IIS";

$iis_w3c->{AccessRead}    = 1;
$iis_w3c->{AccessScript}  = 1;
$iis_w3c->{AccessWrite}   = 0;
$iis_w3c->{AccessExecute} = 0;

#Save this info to the metabase
$iis_w3c->SetInfo();