I have a Win2ksp2 AD setup with WinXP clients,
Why does this *sometimes" work:
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
And this always work:
strADsPath = "WinNT://<netbios dom name>/" & strUserName
Set objADs = GetObject(strADsPath)
For Each objMember In objADs.Groups
strGroups = strGroups + "cn=" + LCase(objMember.Name)
Next
Any ideas?
Thanks!
jlc
~ Finally, powerful endpoint security that ISN'T a resource hog! ~
~ <http://www.sunbeltsoftware.com/Business/VIPRE-Enterprise/> ~
