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

下列示例确保输入的用户名有效，创建 ，检查节点是否启用了电子签名，设置并获取连续用户的名称。

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bSigRequired As Boolean

Dim UserName As String

Dim SetName As String

'有效的用户名

SetName = "TestUser"

'创建ESignature对象

Set ESig = CreateObject("ElectronicSignature.ESignature")

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

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

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

ESig.SetContinuousUser SetName

'取得连续用户的名称

ESig.GetContinuousUser UserName

MsgBox “Continuous user: ” & UserName

Else

'未对签名启用硬件密钥，安全被禁用，或禁止签名生效

MsgBox “在本节点上未启用签名。”

End If