Added support for Credential Security Support Provider (CredSSP) which is required for Network Level Authentication (NLA).

This commit is contained in:
Riley McArdle
2010-01-29 15:52:51 -06:00
parent e3730b4e1f
commit 090dc8b421
3 changed files with 5 additions and 3 deletions

View File

@@ -1433,7 +1433,7 @@ Namespace App
Dim ReasonCode As String = Reason(0)
Dim ReasonDescription As String = Reason(1)
If ReasonCode > 3 Then
mC.AddMessage(Messages.MessageClass.WarningMsg, "RDP Disconnected!" & vbNewLine & ReasonDescription & vbNewLine & "Error code " & ReasonCode)
mC.AddMessage(Messages.MessageClass.WarningMsg, "RDP Disconnected!" & vbNewLine & ReasonDescription & vbNewLine & "Error code " & ReasonCode & ".")
End If
End If
Catch ex As Exception

View File

@@ -8,6 +8,7 @@
Added View->Reset Layout menu item
Added F11 shortcut key to View->Full Screen
Improved RDP error reporting
Added support for Credential Security Support Provider (CredSSP) which is required for Network Level Authentication (NLA)
1.62:
Switched to VncSharp, an open source VNC component

View File

@@ -33,14 +33,14 @@ Namespace Connection
#End Region
#Region "Private Declarations"
Private RDP As AxMsRdpClient5
Private RDP As AxMsRdpClient6NotSafeForScripting
Private Info As Connection.Info
Private RDPVersion As Version
#End Region
#Region "Public Methods"
Public Sub New()
Me.Control = New AxMsRdpClient5
Me.Control = New AxMsRdpClient6NotSafeForScripting
End Sub
Public Overrides Function SetProps() As Boolean
@@ -79,6 +79,7 @@ Namespace Connection
RDP.AdvancedSettings2.keepAliveInterval = 60000 'in milliseconds (10.000 = 10 seconds)
RDP.AdvancedSettings5.AuthenticationLevel = 0
RDP.AdvancedSettings.EncryptionEnabled = 1
RDP.AdvancedSettings7.EnableCredSspSupport = True
RDP.AdvancedSettings2.overallConnectionTimeout = 20