Active Directory/Connect: Difference between revisions
m (omit TI-89 BASIC) |
m (Fixed lang tags.) |
||
| Line 21: | Line 21: | ||
=={{header|VBScript}}== |
=={{header|VBScript}}== |
||
Creating the normal connection to AD |
Creating the normal connection to AD |
||
<lang vbscript>Set objConn = CreateObject("ADODB.Connection") |
|||
Set objCmd = CreateObject("ADODB.Command") |
|||
objConn.Provider = "ADsDSOObject" |
|||
objConn.Open</lang> |
|||
{{omit from|TI-89 BASIC}} <!-- Does not have network access. --> |
{{omit from|TI-89 BASIC}} <!-- Does not have network access. --> |
||
Revision as of 19:26, 19 November 2009
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 <lang vbscript>Set objConn = CreateObject("ADODB.Connection") Set objCmd = CreateObject("ADODB.Command") objConn.Provider = "ADsDSOObject" objConn.Open</lang>