Active Directory/Search for a user: Difference between revisions

{{task|Programming environment operations}}

 

 

=={{header|C}}==

 

char *name, *password;

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

}

}

}

 

 

 

 

 

 

 

 

 

 

 

}

}

 

 

 

 

 

 

 

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

{{omit from|Inform 7|Does not have network access.}}

{{omit from|M4}}

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