# Kod konfiguruje uwierzytelnianie dla witryny WWW

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
$strSiteID = '<IdentyfikatorWitryny>';

$intFlag = 1 + 4;
# Oto dostpne wartoci powizane z metodami uwierzytelniania:
#     1 = Anonymous
#     2 = Basic
#     6 = MD5
#     4 = NTLM
#    64 = Passport
# W przypadku zmiennej intFlag wystarczy zsumowa
# wartoci identyfikujce metody uwierzytelniania, ktre
# maj zosta skonfigurowane.
# ------ KONIEC KONFIGURACJI ---------

$objWebSite = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC/' . $strSiteID);
$objWebSite->{AuthFlags} = $intFlag;
$objWebSite->SetInfo();
print 'Z powodzeniem zmodyfikowano ustawienia uwierzytelniania dla: ' . $objWebSite->ServerComment, "\n";

