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

 

 

 

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;

}

}

 

 

 

 

 

end

 

 

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

sn: Milton

cn: John Milton

</pre>

 

{{libheader|php-ldap}}

 

 

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

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

 

 

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

 

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.

5 File(s) 748,993,785 bytes

7 Dir(s) 952,183,820,288 bytes free</pre>

 

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

 

{{omit from|ACL2}}

{{omit from|AWK}}

{{omit from|Mathematica}}

{{omit from|Maxima}}

{{omit from|MIPS Assembly|None of the commonly used implementations can access AD functions}}

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