Active Directory/Connect: Difference between revisions
Content added Content deleted
(add Ruby) |
m (omit TI-89 BASIC) |
||
Line 25: | Line 25: | ||
objConn.Provider = "ADsDSOObject" |
objConn.Provider = "ADsDSOObject" |
||
objConn.Open |
objConn.Open |
||
{{omit from|TI-89 BASIC}} <!-- Does not have network access. --> |
|||
[[Category:Active Directory]] |
[[Category:Active Directory]] |
Revision as of 20:55, 13 August 2009
Active Directory/Connect
You are encouraged to solve this task according to the task description, using any language you may know.
You are encouraged to solve this task according to the task description, using any language you may know.
Ruby
Similar to Tcl, assume the AD server talks LDAP.
There are many Ruby LDAP packages ([1]) -- this solution uses Net::LDAP ("Pure Ruby LDAP Tools" on RubyForge, gem name "ruby-net-ldap")
<lang ruby>require 'rubygems' require 'net/ldap' ldap = Net::LDAP.new(:host => 'ldap.example.com', :base => 'o=companyname') ldap.authenticate('bind_dn', 'bind_pass')</lang>
Tcl
This does not use SSPI/Kerberos yet, so your AD would need to allow simple ldap access. <lang tcl>package require ldap set conn [ldap::connect $host $port] ldap::bind $conn $user $password</lang>
VBScript
Creating the normal connection to AD
Set objConn = CreateObject("ADODB.Connection") Set objCmd = CreateObject("ADODB.Command") objConn.Provider = "ADsDSOObject" objConn.Open