# Kod uaktywnia dla witryny WWW 128-bitowy protok SSL

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

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

# Pobrane z AccessSSLFlags
#   8 = AccessSSL
#   256 = AccessSSL128
$intFlag = 8 + 256;
# ------ KONIEC KONFIGURACJI ---------
$objWebSite = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC/' . $strSiteID);
$objWebSite->{AccessSSLFlags} = $intFlag;
$objWebSite->SetInfo();
print 'Z powodzeniem zmodyfikowano ustawienia protokou SSL dla: ' . $objWebSite->ServerComment, "\n";

