SetContinuousUser Method Example

The following example ensures that the User Name entered is valid, creates the ESignature object, checks that the node is enabled for electronic signature, and sets and gets the name of the continuous user.

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bSigRequired As Boolean

Dim UserName As String

Dim SetName As String

'valid user name

SetName = "TestUser"

'Create the ESignature object

Set ESig = CreateObject("ElectronicSignature.ESignature")

'Check if node is enabled for electronic signature

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

'Set the name of the continuous user to "TestUser"

ESig.SetContinuousUser SetName

'Get the name of the continuous user

ESig.GetContinuousUser UserName

MsgBox “Continuous user: ” & UserName

Else

'the hardware key is not enabled for signature, security is disabled, or bypass signature is in effect

MsgBox “Signature is not enabled on this node.”

End If