# Kod wcza rejestrowanie

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
$strSite = '<WitrynaWWW>'; # np. W3SVC/222
$intEnableLog = 1; # 1 - wczenie; 0 - wyczenie
# ------ KONIEC KONFIGURACJI ---------
$objWS = Win32::OLE->GetObject('IIS://' . $strComputer . '/' . $strSite);
$objWS->Put('LogType', $intEnableLog);
# objWS.Put "LogDirectory", "d:\logs"  ' usu komentarz, aby okreli katalog dziennikw
$objWS->SetInfo();
print 'Rejestrowanie uaktywniono dla witryny WWW: ', $objWS->ServerComment, "\n";
