NDiscover a Users NT Groups

[u104741]

I know its possible t discover the current users NT user name with VBA, but it it possible to also discover what NT User Groups they belong too?

hope someone can help?
jj

 

[Remou]

This code is VB, but as it uses APIs it should not be too difficult to transfer to VBA:

http://vb.mvps.org/samples/project.asp?id=NetUser

 

[CautionMP]

u104741,
Give this a try.

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

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[u104741]

thanks I'll give it a go.