' Kod okrela rne ustawienia zwizane z jakoci usug
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"
' ------ KONIEC KONFIGURACJI ---------
set objWS = GetObject("IIS://" & strComputer & "/W3SVC")
objWS.Put "ConnectionTimeout", 120
objWS.Put "HeaderWaitTimeout", 2
objWS.Put "MinFileBytesPerSec", 240
objWS.Put "AllowKeepAlive", True
objWS.Put "MaxBandwidth", &HFFFFFFFF
objWS.Put "MaxEndpointConnections", &HFFFFFFFF
objWS.SetInfo
WScript.Echo "Ustawienia zwizane z jakoci usug okrelono dla witryny WWW: " & objWS.ServerComment
