获取用户信息

这段脚本利用了系统对象的FixGetUserInfo方法来获得有关用户安全权限信息。

例: 使用系统对象的FixGetUserInfo方法

Public Sub SecurityGetUser()

     Dim Result As Integer

     Dim UserID As String

     Dim UserName As String

     Dim GroupName As String

     Dim UserInfo As String

     System.FixGetUserInfo UserID, UserName, GroupName

     MsgBox "Login Name: " & UserID & vbCr & "Full Name:" _

     & UserName & vbCr & "Clearance Level:

End Sub

相关信息