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
\r\n#!\/usr\/bin\/perl\r\nuse strict;\r\nuse warnings;\r\nuse EBox;\r\nuse EBox::UsersAndGroups;\r\nuse EBox::Global;\r\nuse EBox::Util::Random;\r\nEBox::init();\r\n\r\nmy $salida ="\/tmp\/users.csv";\r\nopen (OUT,">$out") || die "ERROR: Can't create or write to file $out\\n";\r\nmy $users = EBox::Global->modInstance('users');\r\nmy @userlist = @{$users->users() } ;\r\nforeach my $user (@userlist) {\r\n my $password;\r\n $password = EBox::Util::Random::generate(8);\r\n print OUT $user->name()." ". $password."\\n";\r\n $user->changePassword($password,0)\r\n}\r\n close (OUT);\r\n\r\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