troubleshooting Question

Using VBS to find group memberships in Win 2k3 - Slight problem with code

Avatar of Jase_x
Jase_x asked on
Programming
3 Comments1 Solution402 ViewsLast Modified:
Hi folks I have the following code which I am using to print to screen the groups of which the current logged in user is part of :

On Error Resume Next
Set objADSysInfo = CreateObject("ADSystemInfo")
strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
For Each strGroup in objUser.memberOf
    Set objGroup = GetObject("LDAP://" & strGroup)
    Wscript.Echo objGroup.Name
Next

When a user is part of 3 or more groups the script works perfectly.  However I have one user which is part of the domain users group and a test group.  When you run the script on this user it does not return any groups until you add a third group which can be anything.

I was just wondering if anyone knew why this was the case ? It is not a permissions based thing as I have tried giving the user administrative privilages.

Thanks folks,

- Jamie
ASKER CERTIFIED SOLUTION
sr75

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 3 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros