Пример простого скрипта авторизации в AD

#!/usr/bin/perl

use Net::LDAP;

sub auth_ad{
 my($user,$domain,$pass) = @_;
 my $ad = Net::LDAP->new($domain) or die "Could't connect: $!";
 my $mesg = $ad->bind("$user\@$domain",password=>$pass, version=>3);
 return $mesg->is_error();
}

my $rv = auth_ad('user','example.com','password');

print $rv;
Tagged with:  

2 Responses to Perl авторизация в Active Directory

  1. Её ещё поднять где-то надо эту active directory, вроде как под webmin-ом нетяжело

  2. Passenger:

    Этот скрипт больше нужен для интеграции в какой-то проект. Специально поднимать AD для такой проект — излишние сложности.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Можно использовать следующие HTML-теги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>