>How do I get a list of NT Groups a user belongs to?

I found one solution. Here is a code snipit from the following document:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsi/iadsuser_groups.asp

Dim usr As IADsUser
Set usr = GetObject("WinNT://Microsoft/JSmith,user")
For Each grp In usr.Groups
Debug.Print grp.Name & " (" & grp.Class & ")"
Next

If anyone has another solution, feel free to share.