скрипт

**Орлов Алексей** » 20 апр 2006, 09:03

Коллеги доброго всем системного времени

Окажите помощь. Я в perl не силен, а нужен скрипт, который бы выбирал из edir пользователей, у которых просрочена смена пароля и присылал их логины или ещё что, на e-mail. Заранее спасибо за ответ.

**Timur Kazimirov** » 20 апр 2006, 09:06

На кулсолюшенах что-то подобное кто-то выкладывал. И, по-моему, как раз на перле.

**Орлов Алексей** » 20 апр 2006, 09:08

а ссылочки не сохранилось?

**Timur Kazimirov** » 20 апр 2006, 09:12

Ну совсем народ обленился

http://www.novell.com/coolsolutions/tools/15268.html

**Орлов Алексей** » 20 апр 2006, 09:19

Да, я ставил этот скрипт, но что-то он выдает кучу ошибок

, а попроще ничего нет?

**Timur Kazimirov** » 20 апр 2006, 09:29

Ну а с автором связаться? Наш ведь человек :lol:

**skoltogyan** » 20 апр 2006, 14:07

что за ошибки ?

**Орлов Алексей** » 20 апр 2006, 16:51

20/04/2006 Begin
Confidentiality required at pwdntfu.pl line 85, <DATA> line 283
press any key to continue....

**Damm** » 20 апр 2006, 17:55

Орлов Алексей писал(а):20/04/2006 Begin
Confidentiality required at pwdntfu.pl line 85, <DATA> line 283
press any key to continue....

такое обычно бывает когда ЛДАП не разрешает передавать пароли через 389

**Орлов Алексей** » 20 апр 2006, 18:00

Так а этот скрипт разве не на 636 порт лезет? В настройках указываеться и 636 порт.

#!perl

# Will be Scan ALL Users and CHECK PasswordExpirationTime
# If This time <= 6 days - will be send Notify to the User
# with informations:
# When PasswordExpirationTime
# How many Days befor Expiration
# How many loginGraceRemaing

# 20050823105400
# Ver1.03
# Koltogyan Sergey Rubenovich
# skoltogyan@mail.ru
#
# * * * You liked this script? * * *
# * please, tell me you opinion
# * * * * * * * * * * * * * * * * * *

# i use function mylog() from cpr_backup
# thank`s for lain McLaren

#use MIME::Lite;
use Net::LDAP;
use Net::LDAP::LDIF;
use File::Path qw(rmtree);
use File::Basename qw(basename);
use Time::Local;
use Net::SMTP;

#use Date::Parse;

$HOST = 'ip адрес';
$PORT = 389;
$SSL_PORT = 636;
$PASSWD = 'pass';
$BASEDN = "o=контекст";
$ADMIN= "cn=имя,o=контекст";
# usera.company mast have rights READ and WRITE PassowordExpirationTime,
# loginGraceLimit, loginGraceRemaining
#
#

# before 5 days to End begin Notify
# if need before 6 days change to:
# 60*60*24*6
my $TimeDif = 60*60*24*5;

my $TimeNow;
my $TimeTmp;
my $TimeExp;
my $T0 = 0;
my $MailTmp;
my $DnTmp;
my $lgl;
my $lgr;
$entry;

my $latm;

# Where the logs live.
$log_dir="sys:\\results";

**skoltogyan** » 21 апр 2006, 10:18

лезет не по ssl а по обычному. подразумевается, что скрипт запускается на сервере, где и этот ldap.

**Орлов Алексей** » 21 апр 2006, 10:25

а сейчас попробую

**Орлов Алексей** » 21 апр 2006, 10:44

тоже самое

**skoltogyan** » 21 апр 2006, 12:25

1. Пользователь, под котрым логинтся скрипт имеет права читать информацию о сроке истечения пароля и попытках у пользователей ?

2. в NLDAP разрешили подключение не ssl ?

если да по обоим вопросам, то пришлите мне (skoltogyan@mail.ru) Ваш скрипт (забейте только xxxx, ваш пароль)

Что - то вы уж совсем уж....
Проще надо быть
nlist user
User Name Dis Log Exp Pwd Pwd Exp Uni Min
-----------------------------------------------------------------------------
Anonymous No 00/00/00 No 00/00/00 No 0
AntonL No 00/00/00 Yes 08/14/04 Yes 5

скрипт

скрипт

что за ошибки ?

ответ

так

Кто сейчас на конференции