свойства «PolicyEnforcement» является «ReadOnly»

Question

Я пытаюсь присвоить значение «Никогда» в

Я пытаюсь присвоить ExtendedProtectionPolicy.PolicyEnforcement = Never моих binding объекта, но я получаю сообщение об ошибке:

Error 1 Property 'PolicyEnforcement' is 'ReadOnly'. 

декларация

Объект:

Dim binding As New WSHttpBinding() 
binding.Name = "WSHttpBinding_ITest" 
binding.ReaderQuotas.MaxStringContentLength = 10240 
binding.ReliableSession.Enabled = True 
binding.Security.Mode = SecurityMode.None 
binding.Security.Transport.ClientCredentialType = HttpClientCredentialType.None 

'Error below binding.Security.Transport.ExtendedProtectionPolicy.PolicyEnforcement = System.Security.Authentication.ExtendedProtection.PolicyEnforcement.Never 

Любые идеи, как присвоить значение «Никогда» к нему?

Answer 1

С ExtendedProtectionPolicy является неизменным, вам необходимо заменить его новым экземпляром, настроенным по желанию, вместо обновления существующего, например.

binding.Security.Transport.ExtendedProtectionPolicy = 
    New System.Security.Authentication.ExtendedProtection.ExtendedProtectionPolicy(
     Syste‌​m.Security.Authentication.ExtendedProtection.PolicyEnforcement.Never 
    )