RE: Changing password via Net::LDAPS and Perl

[Chris R. <chr...@me...>]

"Edgington, Jeffrey" <je...@um...> wrote:
> Ok.. that produced the following error... 
> 
> pulsar(18)>perl password.pl
> failed: 53 00002077: SvcErr: DSID-031D0A84, problem 5003
> (WILL_NOT_PERFORM), data 0  at password.pl line 38.

The result code 53 means 'unwilling to perform', which is a general kind of
way for the server to pout and refuse to do what you wanted.

I think your problem is that you're passing the actual BER object
(interpolated into a string) to the LDAP server, instead of the encoded
value. You need to get at the encoded value using $pwd->buffer.

$pwd = new Convert::BER;
$pwd->encode(
       STRING=>"hello",
) or die;
[...]
         replace => [ unicodePwd => "$pwd"]

You should replace the replace :-) with this:

         replace => [ unicodePwd => $pwd->buffer ]

Cheers,

Chris