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}}

 

=={{header|C}}==

With OpenLDAP:

...

char *name, *password;

ldap_simple_bind_s(ld, name, password);

... after done with it...

 

=={{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#"

attributes = "#attributeslist#"

>

 

=={{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] ).

ok = eldap:simple_bind( Handle, DN, Password ),

eldap:close( Handle ).

 

=={{header|F_Sharp|F#}}==

{{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)

 

=={{header|Go}}==

<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 (

}

// Do something

 

=={{header|Haskell}}==

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

 

 

module Main (main) where

Ldap.search ldap (Ldap.Dn "o=example.com") (Ldap.typesOnly True) (Attr "uid" := Text.encodeUtf8 "user") []

for_ entries $ \entry ->

 

=={{header|Java}}==

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")

LDAPClient.simple_bind(conn, "user", "password")

LDAPClient.unbind(conn)

 

=={{header|Kotlin}}==

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

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

 

fun main(args: Array<String>) = LDAP(mapOf("hostname" to "localhost", "port" to "10389")).run()

 

=={{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

 

 

return

 

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

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

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

</root>

</log4j:configuration>

 

'''Output:'''

=={{header|Perl}}==

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

use Net::LDAP;

 

my $ldap = Net::LDAP->new('ldap://ldap.example.com') or die $@;

my $mesg = $ldap->bind( $bind_dn, password => $bind_pass );

 

=={{header|Phix}}==

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>

<span style="color: #000000;">ldap_unbind</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ld</span><span style="color: #0000FF;">)</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

{{out}}

<pre>

=={{header|PHP}}==

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

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

 

=={{header|PicoLisp}}==

(quit "Can't open LDAP") )

 

 

=={{header|Python}}==

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

 

 

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

finally:

l.unbind()

 

=={{header|Racket}}==

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

(require net/ldap)

 

{{trans|C}}

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)

(ldap_simple_bind_s ld name password)

 

 

=={{header|Raku}}==

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

 

 

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

 

%DB may be accessed, read from and written to like a native hash.

 

{{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

}

}

 

=={{header|smart BASIC}}==

 

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

PRINT

PRINT "Folders:"

FOR n = 0 TO c-1

PRINT ,a$(n)

 

=={{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]

 

=={{header|VBScript}}==

Creating the normal connection to AD

Set objCmd = CreateObject("ADODB.Command")

objConn.Provider = "ADsDSOObject"

 

=={{header|Wren}}==

{{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 {

}

 

 

// do something here

 

<br>

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

#include <stdio_ext.h>

#include <stdlib.h>

if (strcmp(module, "main") == 0) {

if (strcmp(className, "LDAP") == 0) {

if (!isStatic && strcmp(signature, "unbind()") == 0) return C_unbind;

} else if (strcmp(className, "C") == 0) {

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

WrenInterpretResult result = wrenInterpret(vm, module, script);

free(script);

return 0;

 

{{omit from|Active Directory}}

{{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.}}