vbscript LDAP durchsuchen

Thorus · 10.06.2010, 09:31

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 · 10.06.2010, 11:32

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 · 10.06.2010, 11:34

Kann es sein dass du dich im Forum geirrt hast?

Thorus · 10.06.2010, 14:03

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

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Thema bewerten
Thema bewerten:

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
vbscript, php und exec	godfather	Server, Hosting und Workstations	9	19.05.2010 13:31
ldap Probleme	ASommer	PHP-Fortgeschrittene	2	07.12.2009 09:14
Sortierung LDAP mit php	Pillemon	PHP Tipps 2008	5	30.09.2008 10:49
User einer OU mit LDAP auslesen	InTeNsO	PHP Tipps 2008	2	29.09.2008 13:40
Datei durchsuchen	Wöllchen	Beitragsarchiv	3	02.03.2006 22:23
strng mit hilfe einer badwortlist nach wörtern durchsuchen		PHP Tipps 2005-2	24	11.09.2005 22:39
Novell eDirectory, LDAP und das ganze mit PHP		PHP-Fortgeschrittene	4	28.07.2005 13:59
Ist es möglich die gesamte Datenbank zu durchsuchen???		PHP Tipps 2005-2	2	25.07.2005 16:07
Textdatei durchsuchen	CSS	PHP Tipps 2005	3	26.02.2005 15:31
Kann keine Gruppe bei LDAP erstellen		PHP Tipps 2005	0	28.01.2005 10:42
[Erledigt] LDAP Bind - unknown error		PHP-Fortgeschrittene	0	27.01.2005 17:11
Ldap :-(		PHP-Fortgeschrittene	1	14.10.2004 15:36
LDAP nachinstallieren		PHP Tipps 2004	6	12.10.2004 14:06
[Erledigt] LDAP Gruppe überprüfen		PHP-Fortgeschrittene	4	29.09.2004 17:31
große XML-Datei in annehmbarer Zeit durchsuchen		PHP-Fortgeschrittene	5	02.06.2004 15:44

10.06.2010, 09:31
Thorus Erfahrener Benutzer Registriert seit: 04.05.2010 Beiträge: 152 PHP-Kenntnisse: Anfänger	vbscript LDAP durchsuchen 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 __________________ http://rottmann-moebel.de/


Mister Ad PHP Code Flüsterer Registriert seit: 21.08.2005 Beiträge: 4682 PHP-Kenntnisse: Fortgeschritten

10.06.2010, 11:32
Thorus Erfahrener Benutzer Registriert seit: 04.05.2010 Beiträge: 152 PHP-Kenntnisse: Anfänger	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 __________________ http://rottmann-moebel.de/

10.06.2010, 11:34
Flor1an da schreibt der ElePHPant Registriert seit: 18.06.2008 Beiträge: 8.903 PHP-Kenntnisse: Fortgeschritten	Kann es sein dass du dich im Forum geirrt hast?

10.06.2010, 14:03
Thorus Erfahrener Benutzer Registriert seit: 04.05.2010 Beiträge: 152 PHP-Kenntnisse: Anfänger	Habe hier schon einige Beitraege ueber vbscript gelesen, auf meiner Suche^^ __________________ http://rottmann-moebel.de/