Active Directory/Connect: Difference between revisions
Content added Content deleted
No edit summary |
(Show simple Tcl ldap/AD example) |
||
Line 8: | Line 8: | ||
objConn.Provider = "ADsDSOObject" |
objConn.Provider = "ADsDSOObject" |
||
objConn.Open |
objConn.Open |
||
=={{header|Tcl}}== |
|||
This does not use SSPI/Kerberos yet, so your AD would need to allow simple ldap access. |
|||
package require ldap |
|||
set conn [ldap::connect $host $port] |
|||
ldap::bind $conn $user $password |
|||
[[Category:Active Directory]] |
[[Category:Active Directory]] |
Revision as of 17:13, 14 May 2009
![Task](http://static.miraheze.org/rosettacodewiki/thumb/b/ba/Rcode-button-task-crushed.png/64px-Rcode-button-task-crushed.png)
You are encouraged to solve this task according to the task description, using any language you may know.
VBScript
Creating the normal connection to AD
Set objConn = CreateObject("ADODB.Connection") Set objCmd = CreateObject("ADODB.Command") objConn.Provider = "ADsDSOObject" objConn.Open
Tcl
This does not use SSPI/Kerberos yet, so your AD would need to allow simple ldap access.
package require ldap set conn [ldap::connect $host $port] ldap::bind $conn $user $password