Select Code to Download

#!/usr/bin/perl -w
#
...
print "AD  : SUCCESS: ${username} password changed.n";
 
$ad->unbind();

C:\script\perl> changepassword.pl user1 P@ssw0rd1234
AD  : SUCCESS: user1 password changed.n
C:\script\perl>

4723 - An attempt was made to change an account's password
4724 - An attempt was made to reset an accounts password
627 - Change Password Attempt
628 - User Account password set