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:

Constant Value Description
swCertificateNone 0 No certificate information is available. A secure connection was not established with the server.
swCertificateValid 1 The certificate is valid.
swCertificateNoMatch 2 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.
swCertificateExpired 3 The certificate has expired and is no longer valid. The client can examine the CertificateExpires property to determine when the certificate expired.
swCertificateRevoked 4 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.
swCertificateUntrusted 5 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.
swCertificateInvalid 6 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:

SocketWrench1.HostName = strHostName
SocketWrench1.Secure = True

nError = SocketWrench1.Connect()
If nError > 0 Then
     MsgBox "Unable to connect to server " & strHostName, vbExclamation
     Exit Sub
End If

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

     If nResult = vbNo Then
          SocketWrench1.Disconnect
          Exit Sub
     End If
End If

SocketWrench1.Disconnect

See Also

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