vba - 确定用户的组成员身份

Question

我如何确定用户(比如 Access)是否是 Active Directory 安全组的成员？

我宁愿不在我的小型 Access DB 中构建整个身份验证系统。

谢谢

Answer 1

找到阿兰 this online

Function IsMember(strDomain As String, strGroup _
  As String, strMember As String) As Boolean
  Dim grp As Object
  Dim strPath As String

  strPath = "WinNT://" & strDomain & "/"
  Set grp = GetObject(strPath & strGroup & ",group")
  IsMember = grp.IsMember(strPath & strMember)
End Function

您可以通过 USERDOMAIN 获取 Windows 帐户信息。和 USERNAME环境变量:

Function GetCurrentUser() As String
    GetCurrentUser = Environ("USERNAME")
End Function

Function GetCurrentDomain() As String
    GetCurrentDomain = Environ("USERDOMAIN")
End Function

把它们放在一起:

If IsMember(GetCurrentDomain, "AD Group", GetCurrentUser) Then
   DoStuff()
End If