vbscript LDAP durchsuchen

[Thorus]

Hi,

Ich moechte gerne ein LDAP verzeichnis rekursiv durchsuchen nach dem sAMAccountName, hab schon jede menge gegoogelt und bekomme es einfach net hin !

Koennt ihr mir hierbei helfen? das ist das was ich bisher so habe was nicht funktioniert!

Set oConnect = CreateObject("ADODB.Connection")
oConnect.Provider = "ADsDSOObject"
oConnect.Open "DS Query", stUser, stPass
Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = oConnect
command.CommandText = "SELECT * FROM 'LDAP://" & strDNSDomain & "' WHERE objectClass = '*' AND sAMAccountName = 'jonas.rottmann'"

Danke schoen
Thorus

[Thorus]

Hallo,

Habe es jetzt hinbekommen!!

Set oConnect = CreateObject("ADODB.Connection")
oConnect.Provider = "ADsDSOObject"
oConnect.Open "DS Query", stUser, stPass
Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = oConnect
command.CommandText = "SELECT distinguishedName FROM 'LDAP://DC=Will ich hier nicht angeben!' WHERE sAMAccountName = 'jonas.rottmann'"
Set rs = Command.Execute
'For i = 0 To rs.Fields.Count - 1

' WScript.Echo rs.Fields(i).Name, rs.Fields(i).Type
'Next

'--------------------------
' Navigate the record set.
'--------------------------
rs.MoveFirst
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
'For Multi Value attribute
If rs.Fields(i).Type = adVariant And Not (IsNull(rs.Fields(i).Value)) Then
str1 = rs.Fields(i).Name', " = "
For j = LBound(rs.Fields(i).Value) To UBound(rs.Fields(i).Value)
str2 = rs.Fields(i).Value(j)', " # "
lstResult.AddItem rs.Fields(i).Value(j)
Next
Else
' For Single Value attribute.
pfad = rs.Fields(i).Value
'rs.Fields(i).Name & " = " &
End If
Next
rs.MoveNext
Wend

Allerdings ist das alles nur zusammenkopiert und vor allem die ergebnis array ausgabe verstehe ich nicht wirklich!

Kann mir das mal jmd erklaeren bitte??!?

Danke

[Flor1an]

Kann es sein dass du dich im Forum geirrt hast?

[Thorus]

Habe hier schon einige Beitraege ueber vbscript gelesen, auf meiner Suche^^