Active Directory/Search for a user: Difference between revisions

{{task|Programming environment operations}}

 

 

=={{header|C}}==

 

char *name, *password;

 

ldap_msgfree(*result); /* free messages */

 

=={{header|D}}==

Based on dopenldap.

import openldap;

import std.stdio;

}

 

=={{header|Eiffel}}==

 

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

 

Result := cwel_is_credential_valid (l_domain.item, l_username.item, l_password.item)

end

 

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

"return cwel_is_credential_valid ((LPTSTR) $a_domain, (LPTSTR) $a_username, (LPTSTR) $a_password);"

end

 

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

}

log.Printf("Groups: %+v", groups)

 

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

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

 

searchLDAPusers("Mario", "my-username", "my-password")

 

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

'''Output:'''

<pre>

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'

end

exit

'''Output:'''

<pre>

=={{header|Perl}}==

{{Trans|Raku}}

 

use strict;

foreach my $entry ($srch->entries) { $entry->dump }

 

{{out}}

<pre>

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

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

Note the code inside res=LDAP_SUCCESS has not been tested beyond compiling succesfully, see also

{{libheader|php-ldap}}

 

 

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

$entries = ldap_get_entries($l, $search);

 

 

=={{header|PicoLisp}}==

(in

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

(list

(cons 'cn (prog (from "cn: ") (line T)))

Test:

<pre>: (ldapsearch "Fischer")

=={{header|PowerShell}}==

 

Import-Module ActiveDirectory

 

get-aduser -Filter((DistinguishedName -eq $searchdata) -or (UserPrincipalName -eq $searchdata) -or (SamAccountName -eq $searchdata)) -SearchBase $searchBase

 

 

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

(formerly Perl 6)

 

# 20190718 Raku programming solution

}

}

{{out}}

<pre>objectClass -> inetOrgPerson organizationalPerson top person

 

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

do

LDAP_URL = 'ldap://localhost:11389'

end

exit

'''Output:'''

<pre>

 

{{libheader|RubyGems}}

require 'net/ldap'

 

results = ldap.search(:filter => filter) # returns an array of Net::LDAP::Entry objects

 

 

=={{header|Run BASIC}}==

[rename] files

[view] image files</pre>

' Directory maintenance

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

WEND

END FUNCTION

Output as seen by the client on the web<pre>

Volume in drive C has no label.

 

=={{header|Scala}}==

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

 

new LdapSearch().demonstrateSearch()

 

 

=={{header|Tcl}}==

 

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]

 

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 {

puts [$e get distinguishedName]

 

=={{header|UNIX Shell}}==

 

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

 

LDAP_HOST="localhost"

$LDAP_FILTER \

$LDAP_ATTRIBUTES

'''Output:'''

<pre>

=={{header|VBScript}}==

The search string and execution of the string

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

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

objCmd.Properties("Page Size")=100

objCmd.CommandText = strQuery

 

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

WScript.Echo objRS.Fields("DistinguishedName")

 

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

For Each objUser in ObjRS

WScript.Echo objRS.Fields("DistinguishedName")

Next

 

=={{header|Wren}}==

 

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

 

var LDAP_SCOPE_SUBTREE = 0x0002

 

result.msgfree()

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

free(script);

return 0;

 

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