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
Die msgboxen hab ich genutz, um zu sehen, ob der Wert des Users übernommen wurde, das passt!
kann mir jemand helfen? DANKE
freshman
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
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- On Error Resume Next
- Dim User
- Dim Kennung
- Dim objConnection
- Dim objRecordSet
- Dim objCommand
- Dim vollstName
- Dim WshShell
- Dim WScript
- Dim Username
- WshShell = CreateObject("WScript.Shell")
- userName = InputBox("Bitte Benutzeranmeldenamen eingeben: ", "Eingabe Account")
- MsgBox("userName: " & userName)
- User = WshShell.ExpandEnvironmentStrings(userName)
- 'MsgBox("User:" & User)
- If User = "" Then
- MsgBox("Benutzer nicht vorhanden!", vbCritical, "Eingabe überprüfen")
- Else
- MsgBox("User: " & User)
- WScript = ""
- WshShell = WScript.CreateObject("WScript.Shell")
- Kennung = WshShell.ExpandEnvironmentStrings(User)
- MsgBox("Kennung " & Kennung)
- objConnection = CreateObject("ADODB.Connection")
- objConnection.Open("Provider=ADsDSOObject;")
- objCommand = CreateObject("ADODB.Command")
- objCommand.ActiveConnection = objConnection
- objCommand.CommandText = "<LDAP://DC=UDomaene,DC=HDomaene,DC=com>;(&(objectCategory=user)(sAMAccountName=" & Kennung & "))" & ";distinguishedName;subtree"
- objRecordSet = objCommand.Execute
- While Not objRecordSet.EOF
- vollstName = objRecordSet.Fields("distinguishedName")
- MsgBox(vollstName)
- objRecordSet.MoveNext()
- End While
- objConnection.Close()
- End If
- 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“ ()