my $ldap_session=Net::LDAP->new($ldaphost) or die "error connecting to LDAP $ldaphost: $@\n";
my $mesg=$ldap_session->bind($ldapuser, password=>$ldappassword) or die "error binding: $@\n";

my $temp=$ldap_session->search(
     base=>$base,
     filter=>"(distinguishedName=$user)",
     attrs=> [ '*' ] ) or die "error searching tree:$@\n";
my $tempuser = $temp->entry(0);
$data->{securityflag}=$tempuser->get_value('nTSecurityDescriptor')?$tempuser->get_value('nTSecurityDescriptor'):'none';
my @attributes=$tempuser->attributes;
$data->{values}='';
foreach(@attributes){
     $data->{values}=$data->{values}.'<br>'.$_.'='.$tempuser->get_value($_);
}