RE: Changing password via Net::LDAPS and Perl

[Christoph N. <en...@ap...>]

I know this is from a very old post, but I don't see if this problem was 
ever solved.  Now I'm running into the same problem with Active Directory.  
I'm using the $pwd->buffer value too.

- Christoph


On Wed, 4 Apr 2001, Chris Ridd wrote:

> "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
> 
>