eciabattari
asked on
VB, Search Active Directory based on Login ID
Hi - Need some help. I need to search our company Active Directory based on Login ID and then check if the user is a member is part of a particular group.
Example: EVCI
Group membership: boc ctgg-documentum-finance
Can anyone assist?
Thanks
Example: EVCI
Group membership: boc ctgg-documentum-finance
Can anyone assist?
Thanks
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
The following code did what I wanted. Thanks
'------------------------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
Public Function MembersOfGroup(strGroup, strDomain, strMember As String) As Boolean
Dim adsGroup As ActiveDs.IADsGroup
Dim adsMembers As ActiveDs.IADsMembers
Dim adsMember As Object
Dim strMemberName As String
On Error Resume Next
Set adsGroup = GetObject("WinNT://" + strDomain + "/" + strGroup)
MembersOfGroup = False
If Err.Number = 0 Then
Err.Clear
On Error GoTo 0
Set adsMembers = adsGroup.Members
Set oCol = New Collection
adsMembers.Filter = Array("Members")
For Each adsMember In adsMembers
If adsMember.Name = strMember Then
MembersOfGroup = True
Exit For
End If
If adsMember.Name = strUserName Then
strGroupMembers = "1"
End If
Next adsMember
Set adsMember = Nothing
Set adsMembers = Nothing
Set adsGroup = Nothing
End If
End Function
'------------------------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
'-------------------------
Public Function MembersOfGroup(strGroup, strDomain, strMember As String) As Boolean
Dim adsGroup As ActiveDs.IADsGroup
Dim adsMembers As ActiveDs.IADsMembers
Dim adsMember As Object
Dim strMemberName As String
On Error Resume Next
Set adsGroup = GetObject("WinNT://" + strDomain + "/" + strGroup)
MembersOfGroup = False
If Err.Number = 0 Then
Err.Clear
On Error GoTo 0
Set adsMembers = adsGroup.Members
Set oCol = New Collection
adsMembers.Filter = Array("Members")
For Each adsMember In adsMembers
If adsMember.Name = strMember Then
MembersOfGroup = True
Exit For
End If
If adsMember.Name = strUserName Then
strGroupMembers = "1"
End If
Next adsMember
Set adsMember = Nothing
Set adsMembers = Nothing
Set adsGroup = Nothing
End If
End Function
'-------------------------
glad you got it eci
ASKER