Add all the A tasks

Task/Active-Directory-Connect/0DESCRIPTION

@@ -0,0 +1 @@
+The task is to establish a connection to an Active Directory or Lightweight Directory Access Protocol server.

Task/Active-Directory-Connect/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: Programming environment operations

Task/Active-Directory-Connect/AutoHotkey/active-directory-connect.ahk

@@ -0,0 +1,4 @@
+objConn := CreateObject("ADODB.Connection")
+objCmd := CreateObject("ADODB.Command")
+objConn.Provider := "ADsDSOObject"
+objConn.Open()

Task/Active-Directory-Connect/AutoIt/active-directory-connect.autoit

@@ -0,0 +1,2 @@
+ #include <AD.au3>
+_AD_Open()

Task/Active-Directory-Connect/C/active-directory-connect.c

@@ -0,0 +1,8 @@
+#include <ldap.h>
+...
+char *name, *password;
+...
+LDAP *ld = ldap_init("ldap.somewhere.com", 389);
+ldap_simple_bind_s(ld, name, password);
+... after done with it...
+ldap_unbind(ld);

Task/Active-Directory-Connect/Java/active-directory-connect.java

@@ -0,0 +1,59 @@
+import java.io.IOException;
+
+import org.apache.directory.ldap.client.api.LdapConnection;
+import org.apache.directory.ldap.client.api.LdapNetworkConnection;
+import org.apache.directory.shared.ldap.model.cursor.EntryCursor;
+import org.apache.directory.shared.ldap.model.entry.Entry;
+import org.apache.directory.shared.ldap.model.exception.LdapException;
+import org.apache.directory.shared.ldap.model.message.SearchScope;
+import org.slf4j.Logger;
+import org.slf4j.LoggerFactory;
+
+public class RDirectoryLDAP {
+
+  static final Logger log_;
+  private static final String ldapHostName;
+  private static final int ldapPort;
+  private static LdapConnection connection;
+
+  static {
+    log_ = LoggerFactory.getLogger(RDirectoryLDAP.class);
+    connection = null;
+    ldapHostName = "localhost";
+    ldapPort = 10389;
+  }
+
+  public static void main(String[] args) {
+    try {
+      if (log_.isInfoEnabled()) { log_.info("LDAP Connection to " + ldapHostName + " on port " + ldapPort); }
+      connection = new LdapNetworkConnection(ldapHostName, ldapPort);
+
+      try {
+        if (log_.isTraceEnabled()) { log_.trace("LDAP bind"); }
+        connection.bind();
+
+        if (log_.isTraceEnabled()) { log_.trace("LDAP unbind"); }
+        connection.unBind();
+      }
+      catch (LdapException lex) {
+        log_.error("LDAP Error", lex);
+      }
+      catch (IOException ex) {
+        log_.error("I/O Error", ex);
+      }
+    }
+    finally {
+      if (log_.isTraceEnabled()) { log_.trace("LDAP close connection"); }
+      try {
+        if (connection != null) {
+          connection.close();
+        }
+      }
+      catch (IOException ex) {
+        log_.error("I/O Error on connection.close()", ex);
+      }
+    }
+
+    return;
+  }
+}

Task/Active-Directory-Connect/PHP/active-directory-connect.php

@@ -0,0 +1,3 @@
+<?php
+$ldap = ldap_connect($hostname, $port);
+$success = ldap_bind($ldap, $username, $password);

Task/Active-Directory-Connect/Perl/active-directory-connect.pl

@@ -0,0 +1,4 @@
+use Net::LDAP;
+
+my $ldap = Net::LDAP->new('ldap://ldap.example.com') or die $@;
+my $mesg = $ldap->bind( $bind_dn, password => $bind_pass );

Task/Active-Directory-Connect/PicoLisp/active-directory-connect.l

@@ -0,0 +1,4 @@
+(unless (=0 (setq Ldap (native "libldap.so" "ldap_open" 'N "example.com" 389)))
+   (quit "Can't open LDAP") )
+
+(native "libldap.so" "ldap_simple_bind_s" 'I Ldap "user" "password")

Task/Active-Directory-Connect/Python/active-directory-connect.py

@@ -0,0 +1,10 @@
+import ldap
+
+l = ldap.initialize("ldap://ldap.example.com")
+try:
+    l.protocol_version = ldap.VERSION3
+    l.set_option(ldap.OPT_REFERRALS, 0)
+
+    bind = l.simple_bind_s("me@example.com", "password")
+finally:
+    l.unbind()

Task/Active-Directory-Connect/Ruby/active-directory-connect.rb

@@ -0,0 +1,4 @@
+require 'rubygems'
+require 'net/ldap'
+ldap = Net::LDAP.new(:host => 'ldap.example.com', :base => 'o=companyname')
+ldap.authenticate('bind_dn', 'bind_pass')

Task/Active-Directory-Connect/Tcl/active-directory-connect.tcl

@@ -0,0 +1,3 @@
+package require ldap
+set conn [ldap::connect $host $port]
+ldap::bind $conn $user $password