如何获取当前工作组

chenghai

在对数据库设置安全机制后，利用currentuser()可以获取当前用户名，不知有什么函数可以获取当前用户所属的工作组名？
（没有currentgroup()这个函数）

hi-wzj

SysCmd(acSysCmdGetWorkgroupFile)
syscmd函数还有很多功能，不妨看看。

chenghai

不是，syscmd文件能够获得工作组文件本身，不能够知道当前用户是属于什么工作组。
如：用户“张三”属于“用户组”和“管理员组”，用户“李四”属于“用户组”和“只读组”，我想知道的是这个工作组。

zhengjialon

可能要利用到ADOX，试试看，我没有做过。

李寻欢

Adox有一个user对象，该对象有一个Groups集合
因为一个用户可以属于多个组，所以要用循环来获取

chenghai

寻欢兄能讲讲实例吗？对于ADOX我是一窍不通。

zhengjialon

在ADO的帮助里一般都有相关的实例。

zyz218

这也是个好问题，希望大家一起来探讨一下！

lirong

Sub UserGroup()
    Dim wsp  As Workspace
    Dim usr  As User
    Dim grp  As Group
    '傳回預設工作區的參照位址。
    Set wsp = DBEngine.Workspaces(0)
    For Each grp In wsp.Groups
        For Each usr In grp.Users
            MsgBox usr.Name
        Next
    Next
    Set wsp = Nothing
End Sub