Re: Changing password via Net::LDAPS and Perl

[Christopher A B. <ca...@tc...>]

As Christoph Neumann once put it so eloquently:

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

Here's what I use to update the AD password:

  # done; now, if there's still a unicodePwd, then UTF-16(?) it
  # and base64 encode it and make sure it gets sent that way.
  my $opw = $entry->get_value('unicodePwd');
  if (defined $opw) {
    my $upw = pack "v*", unpack "C*", qq("$opw");
    &change_changes($entry, 'replace', 'unicodePwd', $upw);
  }


&change_changes is a hack to actually change a previous "replace"
operation in an Entry object, rather than adding a second "replace"
operation (else the original one will fail with WILL_NOT_PERFORM).

%%  Christopher A. Bongaarts  %%  ca...@tc...       %%
%%  Internet Services         %%  http://umn.edu/~cab  %%
%%  University of Minnesota   %%  +1 (612) 625-1809    %%