Finde brugerens gruppe liste i AD

Lukker

Første gang jeg lavede scriptet brugte jeg WinNT:// men med LDAP:// kunne jeg løse mit problem..
Dog ikke det perfekte script men nok til det jeg skal bruge det til.
Her er hvad jeg fandt ud af:

Set objSysInfo = CreateObject("ADSystemInfo")

strUserPath = "LDAP://" & objSysInfo.UserName
'msgbox """" & strUserPath & """1"
Set objUser = GetObject(strUserPath)
msgbox "User: """ & objUser.name & """1"
objUser.GetInfo

arrMembersOf = objUser.GetEx("memberOf")

For Each strMemberOf in arrMembersOf
    strUserPath2 = "LDAP://" & strMemberOf
    Set objUser2 = GetObject(strUserPath2)
    msgbox "Is MembersOf: """ & objUser2.name & """2"
    objUser2.GetInfo
       
    arrMembersOf2 = objUser2.GetEx("memberOf")
   
    For Each strMemberOf2 in arrMembersOf2
        strUserPath3 = "LDAP://" & strMemberOf2
        Set objUser3 = GetObject(strUserPath3)
        msgbox "Which is MembersOf: """ & objUser3.name & """3"
    Next
Next