June 2018 Update

Task/Active-Directory-Connect/D/active-directory-connect.d

@@ -0,0 +1,18 @@
+import openldap;
+import std.stdio;
+
+void main() {
+  auto ldap = LDAP("ldap://localhost");
+  auto r = ldap.search_s("dc=example,dc=com", LDAP_SCOPE_SUBTREE, "(uid=%s)".format("test"));
+  int b = ldap.bind_s(r[0].dn, "password");
+  scope(exit) ldap.unbind;
+  if (b)
+  {
+    writeln("error on binding");
+    return;
+  }
+
+  // do something
+  ...
+
+}

Task/Active-Directory-Connect/Haskell/active-directory-connect.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main (main) where
+
+import           Data.Foldable (for_)
+import qualified Data.Text.Encoding as Text (encodeUtf8)
+import           Ldap.Client (Attr(..), Filter(..))
+import qualified Ldap.Client as Ldap (Dn(..), Host(..), search, with, typesOnly)
+
+main :: IO ()
+main = do
+    entries <- Ldap.with (Ldap.Plain "localhost") 389 $ \ldap ->
+        Ldap.search ldap (Ldap.Dn "o=example.com") (Ldap.typesOnly True) (Attr "uid" := Text.encodeUtf8 "user") []
+    for_ entries $ \entry ->
+        print entry

Task/Active-Directory-Connect/Scala/active-directory-connect.scala

@@ -0,0 +1,18 @@
+import java.io.IOException
+
+import org.apache.directory.api.ldap.model.exception.LdapException
+import org.apache.directory.ldap.client.api.{LdapConnection, LdapNetworkConnection}
+
+object LdapConnectionDemo {
+  @throws[LdapException]
+  @throws[IOException]
+  def main(args: Array[String]): Unit = {
+    try {
+      val connection: LdapConnection = new LdapNetworkConnection("localhost", 10389)
+      try {
+        connection.bind()
+        connection.unBind()
+      } finally if (connection != null) connection.close()
+    }
+  }
+}