GetSignature 方法示例

下列示例创建ESignature对象，检查节点是否启用了电子签名，显示“电子签名”对话框，验证签名，并向审计跟踪发送一条消息。

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bVerify As Boolean

Dim bContinuousUse As Boolean

Dim bValidSig As Boolean

Dim PerformUserName As String

Dim PerformUserID As String

Dim PerformComment As String

Dim PerformFullName As String

Dim VerifyUserName As String

Dim VerifyUserID As String

Dim VerifyComment As String

Dim VerifyFullName As String

Dim bPerformCommentRequired As Boolean

 

'创建 ESignature 对象

Set ESig = CreateObject("ElectronicSignature.ESignatureFactory")

'检查节点是否启用了电子签名

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

bVerify = True ' 无需校验

bContinuousUse = True ' 允许在对话框中显示连续用户（如有）

bValidSig = False ' 如成功捕捉到签名，则由GetSignature设为TRUE

bPerformCommentRequired = True ‘要求在可以接受电子签名之前输入操作注释

'显示“电子签名”对话框

ESig.GetSignature "操作描述", bVerify, bContinuousUse, bValidSig, PerformUserName, PerformUserID, PerformComment, VerifyUserName, VerifyUserID, VerifyComment，，，，，，，

If bValidSig = True Then

'向审计跟踪发送一条消息

ESig.SendSignedOperatorMessage "操作描述", "", "", Ucase (PerformUserID), PerformComment, Ucase(VerifyUserID), VerifyComment '获得签名者的全名

ESig.GetFullname Ucase(PerformUserID), Ucase(PerformFullName)

ESig.GetFullname Ucase(VerifyUserID), Ucase(VerifyFullName)

'显示结果

MsgBox "Action performed by " + PerformUserName + " (" + PerformFullName + ") " + PerformComment + " and verified by " + VerifyUserName + " (" + VerifyFullName + ") " + VerifyComment

Else

MsgBox "Signature was not captured."

End If

Else

MsgBox "Signature is not enabled on this node."

End If