This newbie snippet get a number of a IIS web site and modify it in order to let it to process asp pages that will run in a separate memory space, with a bandwidth of 64 kb and with a different Anonymous user (you must put it in the permission of the physical path )
$w3num=Win32::OLE->GetObject("IIS://localhost/W3SVC/$web_num")||die Wi
+n32::OLE->LastError();

      $w3num->{MaxBandWidth}=65536;
      $w3num->SetInfo();


$w3root=Win32::OLE->GetObject("IIS://localhost/W3SVC/$web_num/ROOT")||
+die Win32::OLE->LastError();

   $w3root->AppCreate(0);#||warn Win32::OLE->LastError();
   $w3root->{AppRoot}="/LM/W3SVC/$web_num/ROOT";
   $w3root->{AnonymousUserName}=$Domain."\\".$User;
   $w3root->{AppIsolated}=1;
   $w3root->{AppFriendlyName}=('Default Application');
   $w3root->{AccessScript}=('True');
   $w3root->SetInfo();

[download]
For me the most interesting was discovery that bandwidth was a site property and other stuff are a site/Root properties..

ciao lor*

Back to Cool Uses for Perl