iCentroview系统的配置 > 配置客户端 > 全局配置 > 权限管理

本章介绍iCentroView在组态画面中提供可调用的vbs函数。如何创建组态画面参见新建画面。

进入组态编辑，打开脚本编辑器，编辑以 auth.函数名命名的一系列函数。

可调用如下函数：

u创建群组

VARIANT AuthCreateGroup varName, varDesc, varGroupInfo, varLevel

参数说明：

varName 群组名称

varDesc 群组描述

varGroupInfo 群组参数

varLevel 群组优先级

VARIANT 返回错误码，0为成功

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthCreateGroup "group1","群组1","",1

End Sub

运行a.bsp画面，点击Button，创建了一个叫"group1"的群组。

u更新群组

VARIANT AuthUpdateGroup varOldName, varNewName, varDesc, varGroupInfo, varLevel

参数说明：

varOldName 老的群组名称

varNewName 新的群组名称

varDesc 群组描述

varGroupInfo 群组参数

varLevel 群组优先级

VARIANT 返回错误码，0为成功

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthUpdateGroup "group1","group2","群组2","test",2

End Sub

运行a.bsp画面，点击Button，把"group1"群组修改成了"group2"。

u删除群组

VARIANT AuthDeleteGroup varName

参数说明：

varName 群组名称

VARIANT 返回错误码，0为成功

如 auth.AuthDeleteGroup "group1"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthDeleteGroup "group1"

End Sub

运行a.bsp画面，点击Button，删除"group1"群组。

u获取群组个数

VARIANT AuthGetGroupCount pvarCount

参数说明：

pvarCount 返回群组个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetGroupCount groupcount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetGroupCount groupcount

msgbox groupcount

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示当前群组个数。

u获取所有群组

VARIANT AuthGetGroups pvarGroups, varCount

参数说明：

pvarGroups 返回所有群组,二维数组，4列分别为群组名称、群组描述、群组参数、群组优先级

varCount 群组个数，可通过AuthGetGroupCount函数获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetGroups groups,10

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetGroupCount groupcount

tips = CStr(groupcont) + ","

If groupcount > 0 Then

auth.AuthGetGroups groups,groupcount

For i=0 to groupcount-1

groupname = groups(i,0) '名称

tips = CStr(tips) + CStr(groupname) + ","

groupdesc = groups(i,1) '描述

tips = CStr(tips) + CStr(groupdesc) + ","

groupparam = groups(i,2) '参数

tips = CStr(tips) + CStr(groupparam) + ","

grouplevel = groups(i,3) '优先级

tips = CStr(tips) + CStr(grouplevel) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示当前所有群组信息 "个数,名称1,描述1,参数1,优先级1,名称2......"。

u根据群组名获取群组信息

VARIANT AuthGetGroupInfo varName, pvarDesc, pvarGroupInfo, pvarLevel

参数说明：

varName 群组名称

pvarDesc 返回群组描述

pvarGroupInfo 返回群组参数

pvarLevel 返回群组优先级

VARIANT 返回错误码，0为成功

如 auth.AuthGetGroupInfo "group1",desc,info,level

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetGroupInfo "group1",desc,info,level

msgbox desc

msgbox info

msgbox level

End Sub

运行a.bsp画面，点击Button，弹出"group1"群组的描述、参数、优先级。

u添加群组成员

VARIANT AuthAddUsersToGroup varGroupName, varUserNames

参数说明：

varGroupName 群组名称

varUserNames 用户名称，一维数组

VARIANT 返回错误码，0为成功

如 auth.AuthAddUsersToGroup "group1",users

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

Dim users

users = Array("a", "b") '存在用户"a"和用户"b"

result = auth.AuthAddUsersToGroup("admingroup",users)

End Sub

运行a.bsp画面，点击Button，将用户"a"和用户"b"添加到群组"admingroup"中，弹出是否成功的错误码。

u删除群组成员

VARIANT AuthDelUsersFromGroup varGroupName, varUserNames

参数说明：

varGroupName 群组名称

varUserNames 用户名称，一维数组

VARIANT 返回错误码，0为成功

如 auth.AuthDelUsersFromGroup "group1",users

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

Dim users

users = Array("a", "b") '存在用户"a"和用户"b"

result = auth.AuthDelUsersFromGroup("admingroup",users)

End Sub

运行a.bsp画面，点击Button，将用户"a"和用户"b"从群组"admingroup"中删除，弹出是否成功的错误码。

u获取群组成员个数

VARIANT AuthGetUserCountOfGroup varGroupName, pvarCount

参数说明：

varGroupName 群组名称

pvarCount 返回群组成员个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetUserCountOfGroup "group1",usercount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetUserCountOfGroup "group1",usercount

msgbox usercount

End Sub

运行a.bsp画面，点击Button，弹出群组"group1"中的用户个数。

u获取群组成员

VARIANT AuthGetUsersOfGroup varGroupName, pvarUsers, varCount

参数说明：

varGroupName 群组名称

pvarUsers 返回该群组下的用户信息，二维数组，3列分别为用户名称、用户全名、描述

varCount 用户个数，可通过AuthGetUserCountOfGroup获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetUsersOfGroup "admingroup",users,usercount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetUserCountOfGroup "admingroup",usercount

tips = CStr(usercount) + ","

If usercount > 0 Then

auth.AuthGetUsersOfGroup "admingroup",users,usercount

For i=0 to usercount-1

username = users(i,0) '名称

tips = CStr(tips) + CStr(username) + ","

userfullname = users(i,1) '全名

tips = CStr(tips) + CStr(userfullname) + ","

userdesc = users(i,2) '描述

tips = CStr(tips) + CStr(userdesc) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admingroup"群组下的所有用户信息 "个数,名称1,全名1,描述1,名称2......"。

u为群组授予资源的相关权限

VARIANT AuthGrantPermsToGroup varGroupName, varResAuths, pvarResult

参数说明：

varGroupName 群组名称

varResAuths 传入资源信息，二维数组，2列分别为资源名称、授权行为

pvarResult 返回执行结果,一维数组,每个资源是否授权成功的错误码

VARIANT 返回错误码，0为成功

如 auth.AuthGrantPermsToGroup "admingroup",resauths,result

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

Dim resauths(2,1) '三行两列的二维数组

resauths(0,0) = "res1" '资源名称，下列资源必须存在

resauths(0,1) = "255" '授权行为

resauths(1,0) = "res2"

resauths(1,1) = "255"

resauths(2,0) = "res3"

resauths(2,1) = "1"

auth.AuthGrantPermsToGroup "admingroup",resauths,result

dim tips

for i=0 to 2

res = result(i)

tips = cstr(tips) + cstr(res) + ","

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示授权是否成功错误码 "错误码1,错误码2,错误码3"。

说明：上面实例中的“255”，二进制就是1111 1111，后面三个1从右到左分别代表是否控制、是否显示报警、是否确认报警，1的话就是是，如果置0 的话就是否。根据配置的0或者1，来决定这个二进制数值是多少，配置255的话就是全部都具有权限。

u收回群组对资源的相关权限

VARIANT AuthRevokePermsFromGroup varGroupName, varResAuths, pvarResult

参数说明：

varGroupName 群组名称

varResAuths 传入资源信息，二维数组，2列分别为资源名称、授权行为

pvarResult 返回执行结果,一维数组,每个资源是否收回授权成功的错误码

VARIANT 返回错误码，0为成功

如 auth.AuthRevokePermsFromGroup "admingroup",resauths,result

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

Dim resauths(2,1) '三行两列的二维数组

resauths(0,0) = "res1" '资源名称，下列资源必须存在

resauths(0,1) = "255" '授权行为

resauths(1,0) = "res2"

resauths(1,1) = "255"

resauths(2,0) = "res3"

resauths(2,1) = "1"

auth.AuthRevokePermsFromGroup "admingroup",resauths,result

dim tips

for i=0 to 2

res = result(i)

tips = cstr(tips) + cstr(res) + ","

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示收回授权是否成功错误码 "错误码1,错误码2,错误码3"。

u获取群组所有资源授权个数

VARIANT AuthGetPermsCountOfGroup varGroupName, pvarCount

参数说明：

varGroupName 群组名称

pvarCount 返回资源个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetPermsCountOfGroup "group1",authcount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetPermsCountOfGroup "group1",authcount

msgbox authcount

End Sub

运行a.bsp画面，点击Button，弹出群组"group1"中的资源个数。

u获取群组对所有资源的权限

VARIANT AuthGetPermsOfGroup varGroupName, pvarResAuths, varCount

参数说明：

varGroupName 群组名称

pvarResAuths 返回该群组下的资源信息，二维数组，4列分别为资源名称、描述、类型、行为

varCount 资源个数，可通过AuthGetPermsCountOfGroup获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetPermsOfGroup "admingroup",auths,authcount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetPermsCountOfGroup "admingroup",authcount

tips = CStr(authcount) + ","

If authcount > 0 Then

auth.AuthGetPermsOfGroup "admingroup",auths,authcount

For i=0 to authcount-1

authname = auths(i,0) '名称

tips = CStr(tips) + CStr(authname) + ","

authdesc = auths(i,1) '描述

tips = CStr(tips) + CStr(authdesc) + ","

authtype = auths(i,2) '类型

tips = CStr(tips) + CStr(authtype) + ","

authbehavior = auths(i,3) '行为

tips = CStr(tips) + CStr(authbehavior) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admingroup"群组下的所有资源信息 "个数,名称1,描述1,类型1,行为1,名称2......"。

u获取群组对某个资源的权限

VARIANT AuthGetPermsOfGroupToResource varGroupName, varLabel, pvarAuth

参数说明：

varGroupName 群组名称

varLabel 资源名称

pvarAuth 返回群组对该资源的权限

VARIANT 返回错误码，0为成功

如 auth.AuthGetPermsOfGroupToResource "admingroup","res1",lauth

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetPermsOfGroupToResource "admingroup","res1",lauth

msgbox lauth

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admingroup"群组对"res1"资源的权限行为"。

u获取当前登录用户对某资源的权限（可以是控制|确认报警|显示报警|其他扩展权限）

VARIANT AuthVerifyCurUserRight varLabel, pvarAuth

参数说明：

varLabel 资源名称

pvarAuth 返回用户对该资源的权限

VARIANT 返回错误码，0为成功

如 auth.AuthVerifyCurUserRight "res1",lauth

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthVerifyCurUserRight "res1",lauth

msgbox lauth

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示当前登录用户对"res1"资源的权限行为"。

u获取用户对某资源的权限-不需要用户口令（可以是控制|确认报警|显示报警|其他扩展权限）

VARIANT AuthVerifyUserRight varLabel, varUserName, varLoginGroupName, pvarAuth

参数说明：

varLabel 资源名称

varUserName 用户名称

varLoginGroupName 用户群组，用户所属多个群组中的一个，可以为空

pvarAuth 返回用户对该资源的权限

VARIANT 返回错误码，0为成功

如 auth.AuthVerifyUserRight "res1","admin","",lauth

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthVerifyUserRight "res1","admin","",lauth

msgbox lauth

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admin"用户对"res1"资源的权限行为"。

u创建用户

VARIANT AuthCreateUser varUserName, varUserFullName, varPassword, varDesc

参数说明：

varName 用户名称

varUserFullName 用户全名

varPassword 用户密码

varDesc 描述

VARIANT 返回错误码，0为成功

如 auth.AuthCreateUser "user1","用户1","user1","desc"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthCreateUser "user1","用户1","user1","desc"

End Sub

运行a.bsp画面，点击Button，创建了一个叫"user1"的用户。

u更新用户

VARIANT AuthUpdateUser varUserName, varUserFullName, varDesc

参数说明：

varName 用户名称

varUserFullName 用户全名

varDesc 描述

VARIANT 返回错误码，0为成功

如 auth.AuthUpdateUser "user1","用户用户1","userdesc"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthUpdateUser "user1","用户用户1","userdesc"

End Sub

运行a.bsp画面，点击Button，将"user1"用户的全名和描述更新了。

u修改密码

VARIANT AuthSetUserPassword varUserName, varOldPassword, varNewPassword

参数说明：

varUserName 用户名称

varOldPassword 旧密码

varNewPassword 新密码

VARIANT 返回错误码，0为成功

如 auth.AuthSetUserPassword "user1","user1","user"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthSetUserPassword "user1","user1","user"

End Sub

运行a.bsp画面，点击Button，将"user1"用户的密码改了。

u判断用户密码是否正确

VARIANT AuthIsUserPasswordRight varUserName, varPassword, pvarPwdRight

参数说明：

varUserName 用户名称

varPassword 密码

pvarPwdRight 返回密码是否正确：1正确其他不正确

VARIANT 返回错误码，0为成功

如 auth.AuthIsUserPasswordRight "user1","user1",lright

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthIsUserPasswordRight "user1","user1",lright

msgbox lright

End Sub

运行a.bsp画面，点击Button，如果用户"user1"的密码是"user1",则弹出1。

u删除用户

VARIANT AuthDeleteUser varUserName

参数说明：

varUserName 用户名称

VARIANT 返回错误码，0为成功

如 auth.AuthDeleteUser "user1"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthDeleteUser "user1"

End Sub

运行a.bsp画面，点击Button，删除用户"user1"。

u获取用户数

VARIANT AuthGetUsersCount pvarCount

参数说明：

pvarCount 返回用户个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetUsersCount usercount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetUsersCount usercount

msgbox usercount

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示当前用户个数。

u获取用户列表

VARIANT AuthGetUsers pvarUsers, varCount

参数说明：

pvarUsers 返回所有群组,二维数组，3列分别为用户名称、用户全名、用户描述

varCount 用户个数，可通过AuthGetUsersCount函数获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetUsers users,10

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetUsersCount usercount

tips = CStr(usercount) + ","

If usercount > 0 Then

auth.AuthGetUsers users,usercount

For i=0 to usercount-1

username = users(i,0) '名称

tips = CStr(tips) + CStr(username) + ","

userfullname = users(i,1) '全名

tips = CStr(tips) + CStr(userfullname) + ","

userdesc = users(i,2) '描述

tips = CStr(tips) + CStr(userdesc) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示所有用户信息 "个数,名称1,全名1,描述1,名称2......"。

u获取用户

VARIANT AuthGetUserInfo varName, pvarFullName, pvarDesc

参数说明：

varName 用户名称

pvarFullName 返回用户全名

pvarDesc 返回用户描述

VARIANT 返回错误码，0为成功

如 auth.AuthGetUserInfo "admin",fullname,desc

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetUserInfo "admin",fullname,desc

msgbox fullname

msgbox desc

End Sub

运行a.bsp画面，点击Button，弹出用户全名、描述。

u获取用户所属群组数

VARIANT AuthGetGroupCountOfUser varName, pvarCount

参数说明：

varName 用户名称

pvarCount 返回群组个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetGroupCountOfUser "admin",count

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetGroupCountOfUser "admin",count

msgbox count

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admin"用户所属群组个数。

u获取用户所属群组

VARIANT AuthGetGroupsOfUser varUserName, pvarGroups, varCount

参数说明：

varUserName 用户名称

pvarGroups 返回所有群组,二维数组，4列分别为群组名称、群组描述、群组参数、群组优先级

varCount 群组个数，可通过AuthGetGroupCountOfUser函数获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetGroupsOfUser "admin",groups,groupcount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetGroupCountOfUser "admin",groupcount

tips = CStr(groupcont) + ","

If groupcount > 0 Then

auth.AuthGetGroupsOfUser "admin",groups,groupcount

For i=0 to groupcount-1

groupname = groups(i,0) '名称

tips = CStr(tips) + CStr(groupname) + ","

groupdesc = groups(i,1) '描述

tips = CStr(tips) + CStr(groupdesc) + ","

groupparam = groups(i,2) '参数

tips = CStr(tips) + CStr(groupparam) + ","

grouplevel = groups(i,3) '优先级

tips = CStr(tips) + CStr(grouplevel) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示用户"admin"所属所有群组信息 "个数,名称1,描述1,参数1,优先级1,名称2......"。

u获取用户所有资源数

VARIANT AuthGetPermsCountOfUser varName, pvarCount

参数说明：

varName 用户名称

pvarCount 返回资源个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetPermsCountOfUser "admin",count

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetPermsCountOfUser "admin",count

msgbox count

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admin"用户所有资源个数。

u获取用户资源授权列表

VARIANT AuthGetPermsOfUser varUserName, pvarResAuths, varCount

参数说明：

varUserName 用户名称

pvarResAuths 返回该群组下的资源信息，二维数组，4列分别为资源名称、描述、类型、行为

varCount 资源个数，可通过AuthGetPermsCountOfUser获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetPermsOfUser "admin",auths,authcount

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetPermsCountOfUser "admin",authcount

tips = CStr(authcount) + ","

If authcount > 0 Then

auth.AuthGetPermsOfUser "admin",auths,authcount

For i=0 to authcount-1

authname = auths(i,0) '名称

tips = CStr(tips) + CStr(authname) + ","

authdesc = auths(i,1) '描述

tips = CStr(tips) + CStr(authdesc) + ","

authtype = auths(i,2) '类型

tips = CStr(tips) + CStr(authtype) + ","

authbehavior = auths(i,3) '行为

tips = CStr(tips) + CStr(authbehavior) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admin"用户下的所有资源信息 "个数,名称1,描述1,类型1,行为1,名称2......"。

u获取用户对某个资源的权限

VARIANT AuthGetPermsOfUserToResource varUserName, varLabel, pvarAuth

参数说明：

varUserName 用户名称

varLabel 资源名称

pvarAuth 返回用户对该资源的权限

VARIANT 返回错误码，0为成功

如 auth.AuthGetPermsOfUserToResource "admin","res1",lauth

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetPermsOfUserToResource "admin","res1",lauth

msgbox lauth

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"admin"用户对"res1"资源的权限行为"。

u创建资源

VARIANT AuthCreateResources varResources

参数说明：

varResources 资源，二维数组，5列名称、类型、描述、是否独占、责任群组

VARIANT 返回错误码，0为成功

如 auth.AuthCreateResources resauths

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

Dim resauths(2,4)

resauths(0,0) = "res1" '名称

resauths(0,1) = "type1" '类型

resauths(0,2) = "desc1" '描述

resauths(0,3) = "0" '是否独占

resauths(0,4) = "" '责任群组

resauths(1,0) = "res2"

resauths(1,1) = "type1"

resauths(1,2) = "desc2"

resauths(1,3) = "0"

resauths(1,4) = ""

resauths(2,0) = "res3"

resauths(2,1) = "type3"

resauths(2,2) = "desc3"

resauths(2,3) = "1"

resauths(2,4) = "admingroup"

auth.AuthCreateResources resauths

End Sub

运行a.bsp画面，点击Button，创建了三个资源。

u修改资源

VARIANT AuthUpdateResource varLabel, varType, varDesc, varLockable, varResInfo

参数说明：

varLabel 资源名称

varType 资源类型

varDesc 资源描述

varLockable 是否独占

varResInfo 责任群组

VARIANT 返回错误码，0为成功

如 auth.AuthUpdateResource "res1","type","desc",1,"group1"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthUpdateResource "res1","type","desc",1,"group1"

End Sub

运行a.bsp画面，点击Button，更新"res1"资源的信息。

u删除资源

VARIANT AuthDeleteResource varLabel

参数说明：

varLabel 资源名称

VARIANT 返回错误码，0为成功

如 auth.AuthDeleteResource "res1"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthDeleteResource "res1"

End Sub

运行a.bsp画面，点击Button，删除"res1"资源。

u获取资源类型个数

VARIANT AuthGetCountOfResourceType pvarCount

参数说明：

pvarCount 返回资源类型个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetCountOfResourceType count

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetCountOfResourceType count

msgbox count

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示资源类型个数。

u获取所有资源类型

VARIANT AuthGetResourceTypes pvarResTypes, varCount

参数说明：

pvarResTypes 返回所有资源类型,一维数组

varCount 资源类型个数，可通过AuthGetCountOfResourceType函数获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetResourceTypes restypes,count

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetCountOfResourceType count

tips = CStr(count) + ","

If count > 0 Then

auth.AuthGetResourceTypes restypes,count

For i=0 to count-1

restype = restypes(i)

tips = CStr(tips) + CStr(restype) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示所有资源类型 "个数,类型1,类型2,类型3......"。

u根据资源类型获取资源个数

VARIANT AuthGetCountOfResourcesByType pvarCount, varResType

参数说明：

pvarCount 返回资源个数

varResType 资源类型

VARIANT 返回错误码，0为成功

如 auth.AuthGetCountOfResourcesByType count,"type1"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetCountOfResourcesByType count,"type1"

msgbox count

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示资源类型"type1"下的资源个数。

u根据资源类型获取资源

VARIANT AuthGetResourcesByType pvarResources, varCount, varResType

参数说明：

pvarResources 返回资源信息，二维数组，5列分别为资源名称、描述、类型、是否独占、责任群组

varCount 资源个数，可通过AuthGetCountOfResourcesByType获取

varResType 资源类型

VARIANT 返回错误码，0为成功

如 auth.AuthGetResourcesByType auths,count,"type1"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

dim tips

auth.AuthGetCountOfResourcesByType count,"type1"

tips = CStr(count) + ","

If count > 0 Then

auth.AuthGetResourcesByType auths,count,"type1"

For i=0 to count-1

authname = auths(i,0) '名称

tips = CStr(tips) + CStr(authname) + ","

authdesc = auths(i,1) '描述

tips = CStr(tips) + CStr(authdesc) + ","

authtype = auths(i,2) '类型

tips = CStr(tips) + CStr(authtype) + ","

authlock = auths(i,3) '独占

tips = CStr(tips) + CStr(authlock) + ","

authinfo = auths(i,4) '责任群组

tips = CStr(tips) + CStr(authinfo) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示"type1"类型下的所有资源信息 "个数,名称1,描述1,类型1,1,group1,名称2......"。

u根据资源名称获取资源信息

VARIANT AuthGetResourceByLabel varResName, pvarType, pvarDesc, pvarLockable, pvarResInfo

参数说明：

varResName 资源名称

pvarType 返回资源类型

pvarDesc 返回资源描述

pvarLockable 返回是否独占

pvarResInfo 返回责任群组

VARIANT 返回错误码，0为成功

如 auth.AuthGetResourceByLabel "res1",type,desc,lock,info

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetResourceByLabel "res1",rtype,rdesc,rlock,rinfo

msgbox rtype

msgbox rdesc

msgbox rlock

msgbox rinfo

End Sub

运行a.bsp画面，点击Button，弹出"res1"资源的类型、描述、是否独占、责任群组。

u用户登录

VARIANT AuthLogin varUserName, varPwd

参数说明：

varUserName 用户名称

varPwd 密码

VARIANT 返回错误码，0为成功

如 auth.AuthLogin "admin","admin"

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthLogin "admin","admin"

End Sub

运行a.bsp画面，点击Button，"admin"用户登录。

u当前用户登出

VARIANT AuthLogout

参数说明：

VARIANT 返回错误码，0为成功

如 auth.AuthLogout

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthLogout

End Sub

运行a.bsp画面，点击Button，当前用户登出。

u获取系统登录用户个数

VARIANT AuthGetSysLoggedInUsersCount pvarCount

参数说明：

pvarCount 返回用户个数

VARIANT 返回错误码，0为成功

如 auth.AuthGetSysLoggedInUsersCount count

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

auth.AuthGetSysLoggedInUsersCount count

msgbox count

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示当前登录用户个数。

u获取系统登录用户

VARIANT AuthGetSysLoggedInUsers pvarLoginUsers, varCount

参数说明：

pvarLoginUsers 返回登录用户信息，二维数组，7列分别为登录用户、用户登录的群组名、登录的节点名、登录的节点IP、登录时间、是否配置登录,1是0否、登录的HMI节点名称

varCount 用户个数，可通过AuthGetCountOfResourcesByType获取

VARIANT 返回错误码，0为成功

如 auth.AuthGetSysLoggedInUsers loginusers,count

举例：

在a.bsp的画面中加载一个Button对象，在脚本编辑器中编辑该Button的Click事件如下：

Sub BSButton1_OnClick()

Dim tips

auth.AuthGetSysLoggedInUsersCount usercount

tips = CStr(usercount) + ","

If usercount > 0 Then

auth.AuthGetSysLoggedInUsers loginusers,usercount

For i=0 to usercount-1

aa = loginusers(i,0) '登录用户

tips = CStr(tips) + CStr(aa) + ","

bb = loginusers(i,1) '用户登录的群组名

tips = CStr(tips) + CStr(bb) + ","

cc = loginusers(i,2) '登录的节点名

tips = CStr(tips) + CStr(cc) + ","

dd = loginusers(i,3) '登录的节点IP

tips = CStr(tips) + CStr(dd) + ","

ee = loginusers(i,4) '登录时间

tips = CStr(tips) + CStr(ee) + ","

ff = loginusers(i,5) '是否配置登录,1是0否

tips = CStr(tips) + CStr(ff) + ","

gg = loginusers(i,6) '登录的HMI节点名称

tips = CStr(tips) + CStr(gg) + ","

End If

msgbox tips

End Sub

运行a.bsp画面，点击Button，弹出提示框，显示所有登录用户信息 "个数,用户1,群组1,node1,127.0.0.1,2012-06-06 12:12:12,1,hmi1,名称2......"。

权限函数

权限函数