' Kod uaktywnia dla witryny WWW 128-bitowy protok SSL
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"
strSiteID = "<IdentyfikatorWitryny>"

' Pobrane z AccessSSLFlags
'   8 = AccessSSL
'   256 = AccessSSL128
intFlag = 8 + 256
' ------ KONIEC KONFIGURACJI ---------
set objWebSite = GetObject("IIS://" & strComputer & "/W3SVC/" & strSiteID)
objWebSite.AccessSSLFlags = intFlag
objWebSite.SetInfo
WScript.Echo "Z powodzeniem zmodyfikowano ustawienia protokou SSL dla: " & _
             objWebSite.ServerComment
