#!/umr/testbin/perl

$| =1;

use Convert::BER;
use Net::LDAPS;

$ldaps = new Net::LDAPS('srvtst01.cc.umr.edu',
                        port=> '636');

$UserPass="*******";
$UserID="Administrator";

$ADSserver='srvtst01.cc.umr.edu';
$DomainDN=" dc=test, dc=umr, dc=edu";


$UserDN="cn=$UserID, cn=users, " .  $DomainDN;

$ldaps = Net::LDAPS->new($ADSserver) || die "failed: $@";

$mesg = $ldaps->bind( dn =>"$UserDN", password => "$UserPass" );
$mesg->code && die "bind failed: $mesg->error";

$tempDN = "cn=Test2 Edg, cn=Users, " . $DomainDN;


$pwd = new Convert::BER;

$pwd->encode(
       STRING=>"\"hello\"",
#       STRING=>"\x00\"\x00h\x00e\x00l\x00l\x00o\x00\"",
) or die;
$pw = $pwd->buffer;


$mesg = $ldaps->modify(dn => $tempDN,
         changes => [
                   replace => [ unicodePwd => '$pw' ]
         ]
);

$mesg->code && die "failed: ", $mesg->code," ",$mesg->error;