Public Function GetUserGroup(Domain As String, User As String) As String
Dim objIADsUser As IADsUser
Dim objGroup As IADsGroup
Dim strOutput As String
strOutput = "WinNT://" & Domain & "/" & User & ",User"
Set objIADsUser = GetObject(strOutput)
For Each objGroup In objIADsUser.Groups
If GroupInfo <> "" Then
strOutput = strOutput & ";" & objGroup.Name
End If
Next objGroup
Set objIADsUser = Nothing
Err_Handler:
If Err.Number <> 0 Then
strOutput = strOutput & "Active Directory property cannot be found"
Resume Next
End If
GetUserGroup = strOutput
End Function