# Kod przypisuje aplikacj do puli

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
$strAppPoolName = '<NazwaPuliAplikacji>';
$strApp = '<ciekaAplikacji>'; # np. /W3SVC/1/Root/CGI
# ------ KONIEC KONFIGURACJI ---------

$objVirtualDir = Win32::OLE->GetObject('IIS://' . $strComputer . $strApp);
$objVirtualDir->{AppPoolId} = $strAppPoolName;
$objVirtualDir->SetInfo();

print 'Aplikacj ', $objApp->Name, ' przypisano do puli ', $strAppPoolName, "\n";

