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

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

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

'创建ESignature对象

Set ESig = CreateObject("ElectronicSignature.ESignatureFactory")

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

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

bVerify = True ' 无需校验

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

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

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

ESig.GetSignature "Action Description", bVerify, bContinuousUse, bValidSig, Ucase(PerformUserName), Ucase(PerformUserID), PerformComment, Ucase(VerifyUserName), Ucase(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