VPF::Как организовать авторизацию на win32?

sharq

Дата 26.7.2005, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

Как с помомощью perl организовать авторизацию на win32 машине?

Например, необходимо сменить пользователя (обычный -> администратор) и выполнить команду, доступную только администратору.

Смотрел модули Win32, нашел только Win32::AuthenticateUser, что-то не помогает...

Код

  
use Win32;
use Win32::AuthenticateUser;

print Win32::LoginName(), "\n";

my $domain = Win32::DomainName();

my $auth = AuthenticateUser($domain, 'Администратор', '*********');

print (defined $auth ? defined $auth : 'ok');

print Win32::LoginName(), "\n";

# выполнение команды

Не выполняет...

--------------------

[color=gray]There's More Than One Way To Do It[/color]

chaos

Дата 27.7.2005, 06:35 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 3
Всего: 44

если только выполнить программу из под друго пользователя можно вроде воспользоваться Win32::API
Добавлено @ 06:36
те импортировать функцию LoginUser и CreateProcessAsUser
Добавлено @ 06:37
и вообще по моему такие задачи на перле решать - это изврат smile

можно еще попробовать утилиту RunUser но ей поимоему надо вводить пароль интереактивно

Это сообщение отредактировал(а) chaos - 27.7.2005, 06:53

Sadok

Дата 27.7.2005, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Дык

Цитата

This module is incomplete and is not being actively developed.

Мертвый он и, поковырявшисьв нем, я следов попытки авторизации не обнаружил

sharq

Дата 27.7.2005, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

Цитата(chaos @ 27.7.2005, 06:35)

и вообще по моему такие задачи на перле решать - это изврат smile

ты глубоко заблуждаешься...

Sadok

Цитата(Sadok @ 27.7.2005, 08:54)

Мертвый он и, поковырявшисьв нем, я следов попытки авторизации не обнаружил

это ты про какой модуль?

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Sadok

Дата 28.7.2005, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

sharq
Win32::AuthenticateUser

chaos

Дата 28.7.2005, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 3
Всего: 44

Цитата(sharq @ 27.7.2005, 20:25)

Цитата(chaos @ 27.7.2005, )

и вообще по моему такие задачи на перле решать - это изврат smile

ты глубоко заблуждаешься...

это почем ж ты так решил?

а даже если и действительно заблуждаюсь, то никогда бы не взялся бы делать это на перле, а если задача была поставленна только на перле то наверняка бы воспользовался связкой Perl+XS

Это сообщение отредактировал(а) chaos - 28.7.2005, 10:16

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »