# Kod tworzy pul aplikacji

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
$strAppPoolName = '<NazwaPuliAplikacji>';
# ------ KONIEC KONFIGURACJI ---------

$objAppPools = Win32::OLE->GetObject('IIS://' . $strComputer . '/w3svc/AppPools');
$objNewAppPool = $objAppPools->Create("IIsApplicationPool", $strAppPoolName);

# Ponowne uycie puli aplikacji po kadych 2000 da
$objNewAppPool->{AppPoolRecycleRequests} = 1;
$objNewAppPool->{PeriodicRestartRequests} = 2000;

# Uruchomienie puli aplikacji przy uyciu tosamoci Usuga sieciowa (podobnie jak w przypadku
# domylnej puli)
$objNewAppPool->{AppPoolIdentityType} = 2;

# Zapisanie nowej puli aplikacji
$objNewAppPool->SetInfo();

print 'Z powodzeniem utworzono pul aplikacji: ' . $objNewAppPool->Name, "\n";

