' Kod konfiguruje uwierzytelnianie dla witryny WWW
' ------ 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 ---------

set objWebSite = GetObject("IIS://" & strComputer & "/W3SVC/" & strSiteID)
objWebSite.AuthFlags = intFlag
objWebSite.SetInfo
WScript.Echo "Z powodzeniem zmodyfikowano ustawienia uwierzytelniania dla: " & _
             objWebSite.ServerComment
