#!/usr/bin/perl

use strict;
use Net::LDAPS;

use Data::Dumper;

my $ldu ='ldapquery';
my $ldp ='nottherealpassword';


my $unamein = 'johnson';


my $attr = ['objectGUID', 'sAMAccountName', 'employeeNumber', 'mail'];

my $ldaps = Net::LDAPS->new("ldaps://host.domain") or return "FAIL LDAP ERROR $0";

my $searchBase = "DC=host,DC=domain";
# Bind as AD user
my $mesg1 = $ldaps->bind("$ldu\@host.domain", password=>$ldp);
        
$mesg1->code && die "Authentication failed: " . $mesg1->error . "\n";

my $searchFilter = "(sAMAccountName=$unamein)";

$mesg1 = $ldaps->search (  # perform a search
                               base => $searchBase,
                               filter => $searchFilter,
                               attrs => $attr
                               );

        	$mesg1->code;

print Dumper $mesg1;

my $binguid= $mesg1->entry(0)->get_value('objectGUID');

$searchFilter = "(objectGUID=$binguid)";

$mesg1 = $ldaps->search (  # perform a search
                               base => $searchBase,
                               filter => $searchFilter,
                               attrs => $attr
                               );

        	$mesg1->code;

print Dumper $mesg1;

exit;