$w3num=Win32::OLE->GetObject("IIS://localhost/W3SVC/$web_num")||die Win32::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();