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

下列示例创建 ，检查节点是否启用了电子签名，取得用户ID，检查用户是否有权访问“电子签名禁止”应用特性，并检查用户是否有权访问安全区域。

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim UserName As String

Dim PassWord As String

Dim result As Boolean

Dim UsrId As String

'有效的iFix用户名及密码

UserName = "username"

PassWord = "密码"

result = False

'创建ESignature对象

Set ESig = CreateObject("ElectronicSignature.ESignature")

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

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

'取得用户ID

ESig.GetUserid UserName, PassWord, UsrId

MsgBox “UserID: ” & UsrId

'检查用户能否访问“电子签名禁止”应用特性

ESig.CheckUserApplicationAccess UsrId, 74, result

MsgBox "User: " & UserName & vbCr & "Has rights to Bypass Signature? " & result

'检查用户能否访问安全区域B

ESig.CheckUserAreaAccess UsrId, "B", result

MsgBox "User: " & UserName & vbCr & "Has rights to Security Area B? " & result

Else

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

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

End If