GetUserID 方法示例

下列示例创建ESignature对象，检查节点是否启用了电子签名，取得用户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 “用户ID: ” & 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 "Signature is not enabled on this node."

End If