Active Directory/Search for a user: Difference between revisions

{{task|Programming environment operations}}

 

 

=={{header|C}}==

 

char *name, *password;

=={{header|D}}==

Based on dopenldap.

import openldap;

import std.stdio;

 

Moreover, strings in Eiffel are objects and cannot be directly passed to the Windows OS. As such, they need to undergo a format change through the facilities of a WEL_STRING, which makes the appropriate structure conversion.

feature -- Validation

 

Because Active Directory is a Windows OS facility, in Eiffel we must use the WEL (Windows Eiffel Library) components. Thus, the code above is not cross-platform. Moreover, the call to `cwel_is_credential_valid' is shown below:

 

cwel_is_credential_valid (a_domain, a_username, a_password: POINTER): BOOLEAN

external

end

</syntaxhighlight>

 

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

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

 

 

module Main (main) where

The following code uses the Apache Directory project, version 1.0.0.

 

import org.apache.directory.api.ldap.model.cursor.CursorException;

import org.apache.directory.api.ldap.model.cursor.EntryCursor;

 

=={{header|Julia}}==

 

function searchLDAPusers(searchstring, uname, pword, host=["example", "com"])

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

 

This program drives the <tt>ldapsearch</tt> command and captures the output into an external data queue via ooRexx <tt>rxqueue</tt> facility. The contents of the queue are then read into program variables for further processing.

 

do

LDAP_URL = 'ldap://localhost:11389'

=={{header|Perl}}==

{{Trans|Raku}}

 

use strict;

=={{header|Phix}}==

{{trans|C}}

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

{{libheader|php-ldap}}

 

 

$l = ldap_connect('ldap.example.com');

 

=={{header|PicoLisp}}==

(in

(list "ldapsearch" "-xH" "ldap://db.debian.org"

=={{header|PowerShell}}==

 

Import-Module ActiveDirectory

 

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

 

 

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

=={{header|Raku}}==

(formerly Perl 6)

 

# 20190718 Raku programming solution

 

A little contrived; this [[REXX]] program drives the <tt>ldapsearch</tt> command.

do

LDAP_URL = 'ldap://localhost:11389'

 

{{libheader|RubyGems}}

require 'net/ldap'

 

[rename] files

[view] image files</pre>

' Directory maintenance

' ---------------------------------------------

 

=={{header|Scala}}==

import org.apache.directory.ldap.client.api.{LdapConnection, LdapNetworkConnection}

 

 

This is just the basic setup.

set Filter "((&objectClass=*)(sAMAccountName=$Username))"

set Base "dc=skycityauckland,dc=sceg,dc=com"

 

Now do the actual search.

If we have only a single result its easy:

puts [dict get [lindex $result 0 1] distinguishedName]

}</syntaxhighlight>

 

Looping over the result set to output some values.

lassign $pair cn attributes

puts [dict get $attributes distinguishedName]

 

If you're bored you can also use this instead:

set conn [ldapx::connect $BindDN $Password]

$conn traverse $Base $Filter $Attrs e {

 

A shell script to drive the <tt>ldapsearch</tt> command.

 

LDAP_HOST="localhost"

=={{header|VBScript}}==

The search string and execution of the string

strQuery = "<LDAP://dc=skycityauckland,dc=sceg,dc=com>;"_

& "(&(objectclass=*)(samaccountname=" & strUsername & "));distinguishedname;subtree"

 

Doing something with a single result (this will output the returned users full DN)

WScript.Echo objRS.Fields("DistinguishedName")

End If</syntaxhighlight>

 

Doing something with multiple results (this will output each returned users full DN)

For Each objUser in ObjRS

WScript.Echo objRS.Fields("DistinguishedName")

 

Note that, in an actual case, one would need to wrap more LDAP functions to process the search results.

 

var LDAP_SCOPE_SUBTREE = 0x0002

<br>

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

#include <stdio_ext.h>

#include <stdlib.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

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

}</syntaxhighlight>

 

{{omit from|ACL2}}

{{omit from|AWK}}

{{omit from|Mathematica}}

{{omit from|Maxima}}

{{omit from|ML/I}}

{{omit from|PARI/GP}}

{{omit from|PostScript}}

{{omit from|Retro}}

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

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