LDAP Pfad eines Users ermitteln

  • VB.NET

    LDAP Pfad eines Users ermitteln

    Hallo zusammen,
    ich möchte gerne den kompletten LDAP - Pfad eines Users mir anzeigen lassen, kann mir da jemand bei helfen?
    Danke

    Hab nun folgenden Code gebastelt, aber irgendwie klappt das nicht

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. On Error Resume Next
    3. Dim User
    4. Dim Kennung
    5. Dim objConnection
    6. Dim objRecordSet
    7. Dim objCommand
    8. Dim vollstName
    9. Dim WshShell
    10. Dim WScript
    11. Dim Username
    12. WshShell = CreateObject("WScript.Shell")
    13. userName = InputBox("Bitte Benutzeranmeldenamen eingeben: ", "Eingabe Account")
    14. MsgBox("userName: " & userName)
    15. User = WshShell.ExpandEnvironmentStrings(userName)
    16. 'MsgBox("User:" & User)
    17. If User = "" Then
    18. MsgBox("Benutzer nicht vorhanden!", vbCritical, "Eingabe überprüfen")
    19. Else
    20. MsgBox("User: " & User)
    21. WScript = ""
    22. WshShell = WScript.CreateObject("WScript.Shell")
    23. Kennung = WshShell.ExpandEnvironmentStrings(User)
    24. MsgBox("Kennung " & Kennung)
    25. objConnection = CreateObject("ADODB.Connection")
    26. objConnection.Open("Provider=ADsDSOObject;")
    27. objCommand = CreateObject("ADODB.Command")
    28. objCommand.ActiveConnection = objConnection
    29. objCommand.CommandText = "<LDAP://DC=UDomaene,DC=HDomaene,DC=com>;(&(objectCategory=user)(sAMAccountName=" & Kennung & "))" & ";distinguishedName;subtree"
    30. objRecordSet = objCommand.Execute
    31. While Not objRecordSet.EOF
    32. vollstName = objRecordSet.Fields("distinguishedName")
    33. MsgBox(vollstName)
    34. objRecordSet.MoveNext()
    35. End While
    36. objConnection.Close()
    37. End If
    38. End Sub


    Die msgboxen hab ich genutz, um zu sehen, ob der Wert des Users übernommen wurde, das passt!
    kann mir jemand helfen? DANKE
    freshman

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „freshman“ ()