' Kod wcza rejestrowanie
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"
strSite = "<WitrynaWWW>" ' np. W3SVC/222
intEnableLog = 1  ' 1 - wczenie; 0 - wyczenie
' ------ KONIEC KONFIGURACJI ---------
set objWS = GetObject("IIS://" & strComputer & "/" & strSite)
objWS.Put "LogType", intEnableLog
' objWS.Put "LogDirectory", "d:\logs"  ' usu komentarz, aby okreli katalog dziennikw
objWS.SetInfo
WScript.Echo "Rejestrowanie uaktywniono dla witryny WWW: " & objWS.ServerComment
