www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Auslesen der Benutzer via Ado und LDAP
Autor:  Schmid Arnold
E-mail:  Antworten bitte nur in das Forum!
Datum:  10.05.2002 11:37:38
Subject:  Auslesen der Benutzer via Ado und LDAP
Message:  Wie auf Seite 527 im Buch beschrieben wollte ich |ber VB 6.0 die Benutzer des AD auslesen, aber leider bekomme ich bei der Ausf|hrung die Fehlermeldung Unbekannter Fehler(sehr hilfreich)
Ich hatte es zuerst ohne Command-Objekt, aber auch ohne Erfolg. Ich wei_ wirklich nicht mehr weiter. Soll ich etwa eine SQL-Anweisung basteln?
Vielleicht kann mir jemand weiterhelfen. Hier der Code:

Private Sub Command1_Click()
Dim root As ActiveDs.IADs

Dim domain As String
Dim server As String
Dim constr As String
Dim constrado As String
Dim strldapquery As String
Dim objcon As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim c As ActiveDs.IADsContainer
Dim rs As ADODB.Recordset
objcon.Provider = "ADSDSOObject"
objcon.Open "ADs Provider"
cmd.ActiveConnection = objcon
cmd.Properties("Page Size") = 10
Set root = GetObject("LDAP://rootdse")
domain = root.Get("DefaultnamingContext")
server = root.Get("Servername")
constr = "LDAP://1480s0001/cn=users," & domain

strldapquery = "<LDAP://1480s0001/" & domain & ">;(objectclass=user);samaccountname,adspath,subtree"
cmd.CommandText = strldapquery

Set rs = cmd.Execute
End Sub


Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Auslesen der Benutzer via Ado und LDAP von Schmid Arnold  am 10.5.2002 11:37:38 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019