Community articleIsDigitalSignaturesAvailable function
Added by IBM contributorIBM on August 15, 2011
Rate this article 1 starsRate this article 2 starsRate this article 3 starsRate this article 4 starsRate this article 5 stars

No abstract provided.



Description

This function determines whether digital signatures are available on the current computer.

Function

   Function IsDigitalSignaturesAvailable() As Boolean


Parameters

There are no parameters for this function.

Returns

True if digital signatures are available on this computer; otherwise, False. On error, the function throws an exception.

Example

The following function calls IsDigitalSignaturesAvailable to deterimine whether the digital signature engine is available. If so, it returns "Available"; otherwise, it returns "Not Available".
   Function SigsAvailable()
 
      Dim XFDLObject  ' Object
      Dim Available  ' Boolean
 
      ' Get the XFDL object.
 
      Set XFDLObject = CreateObject("PureEdge.xfdl_XFDL")
 
      ' Check to see if the engine is available.
 
      Available = XFDLObject.IsDigitalSignaturesAvailable
      ' Return the appropriate response.
 
      If Available = True Then
         SigsAvailable = "Available"
      Else
         SigsAvailable = "Not Available"
      End If
 
   End Function


Parent topic:
XFDL functions