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.

 

=={{header|AutoHotkey}}==

{{works with|AutoHotkey_L}}

{{trans|VBScript}}

objCmd := CreateObject("ADODB.Command")

objConn.Provider := "ADsDSOObject"

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

 

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

 

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