Disconnect Method (IbmTerminal)
Disconnects from the host. If no connection currently exists, this method is ignored. Use the IsConnected property to determine if a connection already exists.
This sample changes an unsecure Telnet Connecion to TLS 1.2. To run this sample, open a non-secure 3270 Telnet session and copy the code into a code module. Then change the host name and port for a secure connection and run the macro.
Sub setSecurity()
'Make sure the terminal is disconnected before changing settings
With ThisIbmTerminal
If .IsConnected = True Then
.Disconnect
End If
'enter host that supports TLS
.HostAddress = "yourHost"
.EnableTelnetEncryption = True
.TLS_SSLVersion = TLSSSLVersionOption_TLS_V1_2
'Specify that the host name in the certificate must match the name of the host you are connecting to
.TelnetEncryptionVerifyHostName = True
'You may need to set additional properties to connect, depending on your host configuration.
'For example, you may need to select a set of custom ciphers in the Security Properties dialog box
'and then specify to use them as shown below
'.TelnetEncryptionStrength = TelnetEncryptionStrengthOption_Custom
'Replace with your secure port
.port = yourport
'Connect after changing the settings
.Connect
End With
End Sub
