Avatar billede sinus-c Nybegynder
18. november 2003 - 14:38 Der er 4 kommentarer og
1 løsning

LDAP, Get User By GUID/SID

Jeg er igang med at lave en Active Directory synkroniserings routine, hvor jeg har behov for at have en funktion, som kan hente en bruger via SID/GUID.

----- KODE START -----

Dim LDAPConn As New ADODB.Connection
    Dim LDAPResult As ADODB.Recordset
    Dim LDAPRoot As IADs
    Dim LDAPDomain As IADs
    Dim LDAPQuery As String
   
    GUID = Mid(GUID, 2, Len(GUID) - 2)
   
    Set LDAPRoot = GetObject("LDAP://rootDSE")
    Set LDAPDomain = GetObject("LDAP://" & LDAPRoot.Get("defaultNamingContext"))   

    LDAPQuery = "<" & LDAPDomain.ADsPath & ">"
    LDAPQuery = LDAPQuery & ";(&(objectClass=person)(Assoc-NT-Account=" & GUID & "))"
    LDAPQuery = LDAPQuery & ";name"
    LDAPQuery = LDAPQuery & ";subtree"
 
    LDAPConn.Open "Data Source=Active Directory Provider;Provider=ADsDSOObject"
    Set LDAPResult = LDAPConn.Execute(LDAPQuery)
    If Not LDAPResult.EOF Then
        While Not LDAPResult.EOF
       
            MsgBox ("Name=" & LDAPResult("name"))
           
        LDAPResult.MoveNext
        Wend
    End If
   
    LDAPResult.Close
    LDAPConn.Close

----- KODE SLUT -----

Problemet er, at jeg ikke er helt sikker på at min forespørgsel er korrekt. Mit recordset bliver hvertfald EndOfFile.

Håber nogen kan hjælpe mig!
På forhånd tak!
Avatar billede sinus-c Nybegynder
18. november 2003 - 14:43 #1
Ekstra spørgsmål ... Er GUID og SID det samme?
Avatar billede jrl0469 Nybegynder
18. november 2003 - 15:00 #2
Stil dig på GUID og klik F2
Avatar billede sinus-c Nybegynder
18. november 2003 - 15:09 #3
Anyway, nogen der har et bud på hvordan sådan en forespørgsel skal se ud???
Avatar billede sinus-c Nybegynder
18. november 2003 - 15:13 #4
Har også forsøgt mig at gøre det uden ADODB.

----- KODE -----

GUID = Replace(GUID, "-", "")
   
    MsgBox ("GUID=" & GUID)
    Set LDAPUser = GetObject("LDAP://<GUID=" & GUID & ">")
    MsgBox (LDAPUser.FullName)

----- KODE SLUT -----

Der får jeg følgende fejl:
Automation error There is no such object on the server.
Avatar billede sinus-c Nybegynder
18. november 2003 - 15:27 #5
Fandt ud af at jeg skulle lave en Octet 2 Hex konvertering på SID ;) Så nu spiller det derudaf.
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