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 |
Description |
stCertificateNone |
No certificate information is available. A secure
connection was not established with the server. |
stCertificateValid |
The certificate is valid. |
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 HostAddress property is used rather than the
HostName property. It is recommended that the client
examine the CertificateSubject property to determine the
domain name of the site that the certificate was issued
for. |
stCertificateExpired |
The certificate has expired and is no longer valid. The
client can examine the CertificateExpires property to
determine when the certificate expired. |
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. |
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. |
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:
FtpClient1.HostName = strHostName
FtpClient1.Secure = True
nError = FtpClient1.Connect()
If nError > 0 Then
MsgBox "Unable to connect to server " & strHostName, vbExclamation
Exit Sub
End If
If FtpClient1.CertificateStatus <> stCertificateValid Then
nResult = MsgBox("The server certificate could not be validated" & vbCrLf & _
"Are you sure you wish to continue?", vbYesNo)
If nResult = vbNo Then
FtpClient1.Disconnect
Exit Sub
End If
End If
FtpClient1.Disconnect
See Also
CertificateExpires Property,
CertificateIssued Property,
CertificateIssuer Property,
CertificateSubject Property,
Secure Property
|