Results 1 to 2 of 2
  1. #1
    Roy Geraets is offline Novice
    Windows 8 Access 2010 64bit
    Join Date
    Jan 2014
    Posts
    1

    Active Direcotry probleem (Active Directory & Access & VBA & LDAP)

    Beste Access Whizkids en iedereen die mij verder kan helpen!!!



    Voor stage ben ik een database aan het maken die alle gebruikersinformatie uit de Active Directory haalt en deze in Access tabellen stopt. Denk hierbij aan.
    * Gebruikers
    -Gebruikersnaam
    -Inlognaam
    -Status
    -Afdeling
    -E-Mail
    * Groups (Volgens AGDLP prencipe)
    -Domain Local groepen
    -Global Groepen
    -Users ( Alleen de gebruikers in de lokale groep)
    * Directory's
    -Director's (Via DumpSec)
    -Groepen
    -Rechten

    De Gebruikers en Groepen importeer ik via het LDAP (Lightweight Directory Access Protocol). Hiermee kan je zonder Creditails een verbinding maken met de Active Directory en gegevens opvragen.
    Het importeren van Gebruikers, Groepen en Directory's is gelukt.

    Echter is mijn Probleem

    Groepen hebben atributten, hieraan zit informatie over de groep gekoppeld. Zie dit voorbeeld.
    Van mijn Globale groep wil ik De naam terug krijgen:
    * De naam ("strGroepNaam") Dit lukt
    * De Members ("OBJLocalGroupMember.CN) Dit lukt ook
    * De MemberOF (dit moet de lokale groep zijn) Dit lukt niet!!!

    Hier de Code die de data moet importeren.
    De code zoals hieronder weergegeven werkt 100%.
    HTML Code:
    Private Sub Gr_AD_Click()
    
    Dim strGroepNaam As String
    Dim iAantal As Integer
    Dim OBJGroup As Object
    Dim OBJconnection As Object
    Dim OBJcommand As Object
    Dim OBJrecordset As Object
    Dim OBJLocalGroupMember As Object
    Dim DB As dao.Database
    Dim rs As dao.Recordset
    
    Const ADS_SCOPE_SUBTREE = 2
    
    Set DB = CurrentDb
    Set rs = DB.OpenRecordset("GroepenAD", dbOpenDynaset)
    Set OBJconnection = CreateObject("ADODB.Connection")
    iAantal = 0
    
    OBJconnection.Provider = "ADsDSOObject"
    OBJconnection.Open "Active Directory Provider"
    Set OBJcommand = CreateObject("ADODB.Command")
    Set OBJcommand.ActiveConnection = OBJconnection
    
    DoCmd.SetWarnings False
    CurrentDb.Execute "delete * from GroepenAD"
    DoCmd.SetWarnings True
    
    OBJcommand.CommandText = _
    "SELECT ADsPath, Name FROM 'LDAP://OU=S4_SKRP, OU=Kappa, DC=RPE, DC=kappapackaging, DC=com' WHERE objectCategory='group' AND name ='skrp_G*'"
    Set OBJrecordset = OBJcommand.Execute
    
    OBJrecordset.MoveFirst
    Do Until OBJrecordset.EOF
        
            Set OBJGroup = GetObject(OBJrecordset.Fields("ADsPath").Value)
            
            For Each OBJLocalGroupMember In OBJGroup.members
                iAantal = iAantal + 1
                rs.AddNew
                    rs![Gebruiker] = OBJLocalGroupMember.cn
                    strGroepNaam = OBJrecordset.Fields("name").Value
                    rs![Groep naam] = strGroepNaam
                rs.Update
            Next
    
        OBJrecordset.MoveNext
      
        Statusbar "Import actie groepen Active Directory bezig!!!"
    Loop
    Statusbar "Klaar met import actie!!!"
    
    MsgBox (iAantal) & " " & "Groepen geïmporteerd"
    End Sub
    De oplossing ga ik hier natuurlijk plaatsen. Maar mocht je echt interresse hebben en wil je de hele database zien dan kan dat.
    Dit is namelijk maar een klein deel van deze database.

  2. #2
    June7's Avatar
    June7 is online now VIP
    Windows 7 64bit Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,822
    Should post in English.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 6
    Last Post: 12-23-2016, 12:26 PM
  2. Replies: 5
    Last Post: 06-26-2013, 11:40 AM
  3. Active Directory & Access 2010: Importing Users
    By royarellano in forum Access
    Replies: 0
    Last Post: 12-08-2011, 02:32 AM
  4. MS Active Directory
    By pkelly in forum Access
    Replies: 9
    Last Post: 10-21-2011, 08:26 AM
  5. access+Active directory
    By cpcp in forum Access
    Replies: 6
    Last Post: 11-15-2010, 02:30 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums