Question

How can I determine if a user, in say Access, is a member of an Active Directory Security Group?

I’d rather not build a whole authentication system into my little Access DB.

Thanks

Answer 1

Allain found 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 

You can get the Windows account info by way of the USERDOMAIN and USERNAME environment vars:

Function GetCurrentUser() As String     GetCurrentUser = Environ('USERNAME') End Function  Function GetCurrentDomain() As String     GetCurrentDomain = Environ('USERDOMAIN') End Function 

Putting it all together:

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