ValidateSignature方法示例
2015-12-15 22:24:08   来源：   评论：0 点击：

下列示例创建 ，检查节点是否启用了电子签名，验证签名，向审计跟踪发送一条消息，并获得签名者的全名。

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bValidSig As Boolean

Dim UserID As String

Dim FullName As String

'创建ESignature对象

Set ESig = CreateObject("ElectronicSignature.ESignatureFactory")

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

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

bValidSig = False ' 如签名有效，则由ValidateSignature设为TRUE

'验证签名

ESig.ValidateSignature "admin", "admin", 1, bValidSig, Ucase(UserID)

If bValidSig = True Then

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

ESig.SendSignedOperatorMessage "操作描述", "", "", Ucase(UserID), "注释"

'取得签名者的全名

ESig.GetFullname Ucase(UserID), Ucase(FullName)

'显示结果

MsgBox "操作执行者-管理员 (" + FullName + ") " + "注释"

Else

MsgBox "无效签名。"

End If

Else

MsgBox "Signature is not enabled on this node."

End If