This is a small script I have done today in Zentyal that allows you to change the passwords of all users in LDAP. It creates a file \/tmp\/usuarios.csv with the users and their new passwords<\/p>\n
\n#!\/usr\/bin\/perl\nuse strict;\nuse warnings;\nuse EBox;\nuse EBox::UsersAndGroups;\nuse EBox::Global;\nuse EBox::Util::Random;\nEBox::init();\n\nmy $salida ="\/tmp\/users.csv";\nopen (OUT,">$out") || die "ERROR: Can't create or write to file $out\\n";\nmy $users = EBox::Global->modInstance('users');\nmy @userlist = @{$users->users() } ;\nforeach my $user (@userlist) {\n my $password;\n $password = EBox::Util::Random::generate(8);\n print OUT $user->name()." ". $password."\\n";\n $user->changePassword($password,0)\n}\n close (OUT); \n<\/pre>\n","protected":false},"excerpt":{"rendered":"This is a small script I have done today in Zentyal that allows you to change the passwords of all users in LDAP. It creates a file \/tmp\/usuarios.csv with the users and their new passwords #!\/usr\/bin\/perl use strict; use warnings;…<\/p>\n