CertificateStatus Property  
 

Return the status of the server certificate.

Syntax

object.CertificateStatus

Remarks

The CertificateStatus property returns an integer value which identifies the status of the server certificate. This property may return one of the following values:

Value Constant Description
0 stCertificateNone No certificate information is available. A secure connection was not established with the server.
1 stCertificateValid The certificate is valid.
2 stCertificateNoMatch The certificate is valid, however the domain name specified in the certificate does not match the domain name of the site that the client has connected to. This is typically the case if the ServerName property is set to an IP address rather than a host name. It is recommended that the client examine the CertificateSubject property to determine the domain name of the site that the certificate was issued for.
3 stCertificateExpired The certificate has expired and is no longer valid. The client can examine the CertificateExpires property to determine when the certificate expired.
4 stCertificateRevoked The certificate has been revoked and is no longer valid. It is recommended that the client application immediately terminate the connection if this status is returned.
5 stCertificateUntrusted The certificate has not been issued by a trusted authority, or the certificate is not trusted on the local host. It is recommended that the client application immediately terminate the connection if this status is returned.
6 stCertificateInvalid The certificate is invalid. This typically indicates that the internal structure of the certificate is damaged. It is recommended that the client application immediately terminate the connection if this status is returned.

This property value should be checked after the connection to the server has completed, but prior to beginning a transaction. If a secure connection has not been established, this property will return a value of zero.

Data Type

Integer (Int32)

Example

The following example establishes a secure connection to a server and retrieves a file:

FileTransfer1.HostName = strHostName

On Error Resume Next: Err.Clear
FileTransfer1.Secure = True

If Err.Number Then
    MsgBox "Unable to initialize the security interface"
    Exit Sub
End If

On Error GoTo 0

nError = FileTransfer1.Connect()

If nError > 0 Then
    MsgBox "Unable to connect to server " & strHostName, vbExclamation
    Exit Sub
End If

If FileTransfer1.CertificateStatus <> stCertificateValid Then
    lResult = MsgBox("The server certificate could not be validated" & vbCrLf & _
                     "Are you sure you wish to continue?", vbYesNo)

    If lResult = vbNo Then
        FileTransfer1.Disconnect
        Exit Sub
    End If
End If

nError = FileTransfer1.GetFile(strLocalFile, strRemoteFile)
If nError > 0 Then
    FileTransfer1.Disconnect
    MsgBox "Unable to retrieve file from server " & strHostName
    Exit Sub
End If

FileTransfer1.Disconnect

See Also

CertificateExpires Property, CertificateIssued Property, CertificateIssuer Property, CertificateSubject Property, Secure Property