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.


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


   Function IsDigitalSignaturesAvailable() As Boolean


There are no parameters for this function.


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


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"
         SigsAvailable = "Not Available"
      End If
   End Function

Parent topic:
XFDL functions