Active Directory Data Using Macro

Hi Everyone,
Got answers from my previous inquiries and Im back again to seek for more help ^^

This time around what i want to do is to be able to pull all the groups a LAN ID is a member of.
It's like, I will just put the LAN ID on one cell and when I run a Macro, it will return the list of Groups this ID is a member of.


I have gotten help from romperstomper on my previous post.
Hope to get help again.
(http://www.excelforum.com/excel-prog...ing-macro.html)


Thanks again

Looking forward to your Inputs ^^
Thanks in advance.

Please please please.. hope someone out there could help..

Originally Posted by snb

You'd better look at the attachment you posted.

Hi snb. I viewed the attachment and looks okay.
I'm not sure what I'm missing..

I hope to get luck and find help today ^^

Still no luck with this one.. (

Hi again romperstomper,
Yup I assigned the button to the macro getGroupData, but when i click nothing seems to happen.
Unlike with the other script that you helped me with.

I provided my own logon ID.
Hmnnn... Still trying to figure out what might be the problem..

It's even more weird this time, when I use a LAN ID such as myself I dont get any result, but when I used the generic ID "guest" there was a result (attached).
Hope someone can help.

Thanks again.

Still couldn't get this to work. Hope somebody could help me out.
Thanks in advance. ^^

Hope to get help.
I haven't solved it still, when I use a LAN ID such as myself I dont get any result, but when I used the generic ID "guest" there was a result (attached).
Hope someone can help.

Thanks again.

Still looking and seeking for help..

Anyone got the chance to look at this? ^^
Hope to find help.

Thanks

Hi Vincent,
Sorry I know it has been along time since this post. I did get the script working right however. I entered the ID in the same format as it was in the first extraction. For example the ID's came back as Doe, John. So if you enter it in the same format in the second extraction it does work. Your other option would be to change the line below.

objCommand.CommandText = "SELECT aDSPath FROM 'LDAP://" & objRootDSE.Get("defaultNamingContext") & _
"' WHERE objectClass='user' And name='" & strUser & "'"

to

objCommand.CommandText = "SELECT aDSPath FROM 'LDAP://" & objRootDSE.Get("defaultNamingContext") & _
"' WHERE objectClass='user' And SAMAccountName='" & strUser & "'"

Then you can use jdoe rather then doe, John

Jlynn001