Active Directory/Connect: Difference between revisions

{{task|Programming environment operations}}

The task is to establish a connection to an Active Directory or Lightweight Directory Access Protocol server.

{{works with|AutoHotkey_L}}

{{trans|VBScript}}

objCmd := CreateObject("ADODB.Command")

objConn.Provider := "ADsDSOObject"

=={{header|AutoIt}}==

{{works with|AutoIt}}

_AD_Open()</syntaxhighlight>

=={{header|C}}==

With OpenLDAP:

...

char *name, *password;

=={{header|C sharp|C#}}==

// Requires adding a reference to System.DirectoryServices

var objDE = new System.DirectoryServices.DirectoryEntry("LDAP://DC=onecity,DC=corp,DC=fabrikam,DC=com");

=={{header|ColdFusion}}==

<cfldap

server = "#someip#"

=={{header|D}}==

Based on dopenldap.

import openldap;

import std.stdio;

=={{header|Erlang}}==

This needs a test case. Is there a LDAP server available?

-module(ldap_example).

-export( [main/1] ).

{{trans|C_sharp}}

<p>For Active Directory we use the library System.DirectoryServices</p>

<p>For your average LDAP server we use System.DirectoryServices.Protocol</p>

<p>For a minimal example we make an anonymous connect to the local machine on the well-known LDAP port 389

let connect = new System.DirectoryServices.Protocols.LdapConnection(ldapServer)

connect.Bind()</syntaxhighlight>

<br>

There are a large number of third-party LDAP libraries for Go. This uses one of the simpler ones and the code below is largely taken from the example on its main page.

import (

Example uses the [https://hackage.haskell.org/package/ldap-client <tt>ldap-client</tt>] package:

module Main (main) where

This code uses the Apache Directory third-party library.

import org.apache.directory.api.ldap.model.exception.LdapException;

import org.apache.directory.ldap.client.api.LdapConnection;

=={{header|Julia}}==

conn = LDAPClient.LDAPConnection("ldap://localhost:10389")

=={{header|Kotlin}}==

import org.apache.directory.api.ldap.model.exception.LdapException

import org.apache.directory.ldap.client.api.LdapNetworkConnection

=={{header|NetRexx}}==

Uses the [http://directory.apache.org/api/ Apache LDAP API], connecting to a local [http://directory.apache.org/apacheds/1.5/ ApacheDS] LDAP directory server.

options replace format comments java crossref symbols binary

'''Sample <tt>log4j.xml</tt> configuration file:'''

<!DOCTYPE log4j:configuration SYSTEM "log4j.dtd">

<log4j:configuration xmlns:log4j='http://jakarta.apache.org/log4j/'>

=={{header|Perl}}==

[http://search.cpan.org/dist/perl-ldap/|Perl LDAP Modules]

use Net::LDAP;

This has been tested against a random 7-year-old list of public ldap servers, getting mixed errors of

LDAP_SERVER_DOWN/LDAP_INVALID_CREDENTIALS/LDAP_INVALID_DN_SYNTAX/LDAP_CONFIDENTIALITY_REQUIRED.

<span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">/</span><span style="color: #000000;">ldap</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

=={{header|PHP}}==

[http://php.net/ldap PHP LDAP Reference]

$ldap = ldap_connect($hostname, $port);

$success = ldap_bind($ldap, $username, $password);</syntaxhighlight>

=={{header|PicoLisp}}==

(quit "Can't open LDAP") )

[http://www.python-ldap.org/doc/html/index.html python-ldap Documentation]

l = ldap.initialize("ldap://ldap.example.com")

=={{header|Racket}}==

This version uses the ldap package, and was tested against OpenLDAP (with real values):

(require net/ldap)

(ldap-authenticate "ldap.somewhere.com" 389 "uid=username,ou=people,dc=somewhere,dc=com" password)</syntaxhighlight>

This is a direct translation of the C code -- I have no idea how to try it out since I don't have a working ldap server... So take it as a stub that waits for someone who can try it to do so. (And it's a low level thing anyway, there's an ldap package for Racket which I can't try for a similar reason.)

(require ffi/unsafe ffi/unsafe/define)

Using module LMDB - bindings to the openLDAP library. Requires an LDAP instance.

my %DB := LMDB::DB.open(:path<some-dir>, %connection-parameters);

{{libheader|RubyGems}}

require 'net/ldap'

ldap = Net::LDAP.new(:host => 'ldap.example.com', :base => 'o=companyname')

=={{header|Run BASIC}}==

{{incorrect|Run BASIC|Active Directory has nothing to do with the local file system}}

=={{header|Rust}}==

This solution uses the popular [https://crates.io/crates/ldap3 ldap3] crate.

let conn = ldap3::LdapConn::new("ldap://ldap.example.com")?;

conn.simple_bind("bind_dn", "bind_pass")?.success()?;

=={{header|Scala}}==

import org.apache.directory.api.ldap.model.exception.LdapException

smart BASIC uses three separate commands to list the current directory, folder and files respectively.

PRINT

PRINT "Folders:"

=={{header|Tcl}}==

This does not use SSPI/Kerberos yet, so your AD would need to allow simple ldap access.

set conn [ldap::connect $host $port]

ldap::bind $conn $user $password</syntaxhighlight>

=={{header|VBScript}}==

Creating the normal connection to AD

Set objCmd = CreateObject("ADODB.Command")

objConn.Provider = "ADsDSOObject"

{{libheader|OpenLDAP}}

As it's not currently possible for Wren-cli to access OpenLDAP directly, we embed a Wren script in a C application to complete this task.

foreign class LDAP {

<br>

We now embed this in the following C program, compile and run it.

#include <stdio_ext.h>

#include <stdlib.h>

{{omit from|Lilypond}}

{{omit from|Lingo}}

{{omit from|Mathematica}}

{{omit from|MIPS Assembly|None of the commonly used implementations can access AD functions}}

{{omit from|ML/I}}

{{omit from|Retro}}

{{omit from|SNOBOL4|Does not have network access.}}

{{omit from|Yorick|Does not have network access.}}

{{omit from|ZX Spectrum Basic|Does not have network access.}}