Так а этот скрипт разве не на 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";
Добавлено: 20 апр 2006, 09:03
Окажите помощь. Я в perl не силен, а нужен скрипт, который бы выбирал из edir пользователей, у которых просрочена смена пароля и присылал их логины или ещё что, на e-mail. Заранее спасибо за ответ.
, а попроще ничего нет?