Changeset 207

Timestamp:

05/28/09 22:24:31 (15 years ago)

Author:

nanardon

Message:

• finish set_password in Ad

Location:

LATMOS-Accounts

Files:

• bin/la-passwd (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Ad/User.pm (modified) (1 diff)

LATMOS-Accounts/bin/la-passwd

@@ -22 +22 @@
     die "Object $otype $ARGV[0] not found\n";
 };
-$obj->set_password($ARGV[1]);
+if ($obj->set_password($ARGV[1])) {
+    print "Password succefully changed\n";
+    exit 0;
+} else {
+    warn "Error when trying to change password\n";
+    exit 1;
+}

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm

@@ -203 +203 @@
         ]
     );
-    if ($mesg->code && $mesg->code != 82) {
+    if ($mesg->code) {
         warn $mesg->error;
         return;
-    } else { return 1 }
+    }
+
+    my $userAccountControl = $self->get_field('userAccountControl');
+    # http://msdn.microsoft.com/en-us/library/ms680832(VS.85).aspx
+    $userAccountControl |= 0x00010000; # ADS_UF_DONT_EXPIRE_PASSWD
+                                       # The password for this account will never expire.
+    $userAccountControl |= 0x00000040; # ADS_UF_PASSWD_CANT_CHANGE
+                                       # The user cannot change the password.
+    $self->set_fields(userAccountControl => $userAccountControl);
 }