AD & Perl
Возникла задача проводить автоматическую авторизацию пользователя в домене, когда он заходит на страничку...

С самой авторизацией разобрался:


use Net::LDAP;

my $ldap= Net::LDAP->new("*") || die print $!; 
my $mesg = $ldap->bind("*", password=>"*") || die print $!; 

print $mesg->error();


Вопрос:
как получить пароль и логин для передачи в лдап? чтобы именно автоматом, без всякого ввода...

так же интересует как получить какие у пользователя права есть...да и вообще например вывести списки груп и всех пользователей

А все-таки какую именно задачу вы пытаетесь решить? Мне кажется, что вы делаете что-то не то.



Хм... ну, если IP у клиентов статические, можно завести файлик/табличку IP:login:pass. Аналогично, если клиент уже где-то залогинился, можно вместо IP использовать логин или ID учетной записи. Только будет непросто постоянно поддерживать эти списки в актуальном состоянии.



Начните отсюда: http://search.cpan.org/dist/perl-ldap/

Как работать понял...Только проблема с русскими символами при запросах в AD. Вываливается ошибка. Если англ вводишь - всё ок.

Опять проблемы...Собственно получать данные под администратором домена я научился...но вот косяк...а как проверить, что обычный пользователь ввел верный логин - пароль??

в такой форме:

my $ldap_conn= Net::LDAP->new($Settings::Ldap_server) || die print $!; 
$sort = Net::LDAP::Control::Sort->new(order => "CN");
$ldap_conn->bind("$login", password=>"$password") || die print $!; 

$base = "net.ru";
$filter = "(&(title=*)(CN=*))";

Encode::from_to($base, 'windows-1251','utf8');

my $results = $ldap_conn->search(base => "$base",filter => "$filter", control => [ $sort ]) || die print $!;

print $results->count;

$ldap_conn->unbind;
$ldap_conn->disconnect();