Hello list,
I use scripts (see example) then Delphi applets on the text files that the
scripts produce, to manage my domain, I would like to elminate the scripts,
but I don't know how to access the LDAP through Delphi.
Does anyone know of a component or method?
Cheers - Chris
<example script>
Dim strComputer, oComputer, object, objFileSystem, objOutputFile,
strOutputFile
strOutputFile = "./" & Split(WScript.ScriptName, ".")(0) & ".txt"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
strComputer = "LDAP://<< My AD Information >>"
Set oComputer = GetObject(strComputer)
For Each object In oComputer
'If Not object.extensionAttribute1 = "" Then
objOutputFile.WriteLine(object.name & "," &
padx(object.extensionAttribute1, 6) & "," & object.description)
'End If
Next
objOutputFile.Close
Set oComputer = Nothing
Set objFileSystem = Nothing
Function padx(str, size)
While len(str) < size
str = str + " "
Wend
padx = str
End Function
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
