Текущий пользовательский список групп Active Directory

Question

Как мне распечатать, в каких группах текущий пользователь находится по активному каталогу?

Я хочу напечатать группы, которые содержат текущего пользователя в ячейках.

Answer 1

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

Я решил свою работу с этими кодами Определение членства пользователя в группе с помощью VBA