# Kod okrela rne ustawienia zwizane z jakoci usug

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
# ------ KONIEC KONFIGURACJI ---------
$objWS = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC');
$objWS->Put('ConnectionTimeout', 120);
$objWS->Put('HeaderWaitTimeout', 2);
$objWS->Put('MinFileBytesPerSec', 240);
$objWS->Put('AllowKeepAlive', 1);
$objWS->Put('MaxBandwidth', 0xFFFFFFFF);
$objWS->Put('MaxEndpointConnections', 0xFFFFFFFF);
$objWS->SetInfo();
print 'Ustawienia zwizane z jakoci usug okrelono dla witryny WWW: ', $objWS->ServerComment, "\n";

