Avatar billede toni01 Nybegynder
20. februar 2004 - 11:33 Der er 1 løsning

LDAP liste over organisationalunits

Hejsa,

jeg er ny mht. LDAP jeg vil gerne trække en liste ud over OUs men nedenstående giver ikke noget resultat?

objADTemp = GetObject("LDAP://rootDSE")
strDomain = objADTemp.Get("defaultNamingContext")
objADTemp = Nothing

objADTemp = GetObject("LDAP://" & strDomain)
strADsPath = "<" & objADTemp.ADsPath & ">"
objADTemp = Nothing

objComm.Properties("Page size").Value = 1

objComm.CommandText = strADsPath & ";(&(objectClass=group)(objectCategory=organisationalunit));ou;subTree"

rstOUs = objComm.Execute
Avatar billede kedde65 Praktikant
20. februar 2004 - 11:59 #1
Du kan bruge dette eksempel som inspiration:

      Dim objOU
        Dim item
        Dim nm As String
        objOU = GetObject("LDAP://OU=Odense, DC=intranet, DC=kde")

        For Each item In objOU
            nm = item.name
            If nm.Substring(0, 2) = "OU" Then
                MsgBox(nm.ToString)
            End If
        Next

VH CK
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester