The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Perl  objectSid Active Directory"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Программирование под UNIX (Perl)
Изначальное сообщение [ Отслеживать ]

"Perl  objectSid Active Directory"  +/
Сообщение от renat (??) on 28-Май-12, 17:03 
Добрый день.
На Perl написан скрипт который вытаскивает из AD данные. Все поля вытаскиваются хорошо кроме objectSid и objectGUID. Вместо значений S-1-6-21-4h52121579-2073338045-1474639452-1109 получаю вот это : ot�tn+cE�U
Как мне все это привести в нужный мне вид почему он выдаёт в таком виде?
Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Perl  objectSid Active Directory"  +/
Сообщение от chemtech (ok) on 28-Май-12, 18:15 
> Добрый день.
> На Perl написан скрипт который вытаскивает из AD данные. Все поля вытаскиваются
> хорошо кроме objectSid и objectGUID. Вместо значений S-1-6-21-4h52121579-2073338045-1474639452-1109
> получаю вот это : ot�tn+cE�U
> Как мне все это привести в нужный мне вид почему он выдаёт
> в таком виде?

Может оно в cp1251?

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "Perl  objectSid Active Directory"  –1 +/
Сообщение от Renat (??) on 28-Май-12, 22:56 

> Может оно в cp1251?

Не этлсклрее всего бинарник, тоько вот как perl олм его привести в правильный вид я не знаю,


Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

3. "Perl  objectSid Active Directory"  +/
Сообщение от ACCA (ok) on 30-Май-12, 06:46 
Смотри здесь - http://people.samba.org/bzr/mwong/samba-soc/examples/misc/ad...
Ответить | Правка | ^ к родителю #2 | Наверх | Cообщить модератору

4. "Perl  objectSid Active Directory"  +/
Сообщение от renat (??) on 30-Май-12, 15:50 
> Смотри здесь - http://people.samba.org/bzr/mwong/samba-soc/examples/misc/ad...

Да я совсем забыл сказать это мой первый опыт работы с perl, я думаю я в этом скрипте год буду разбираться, но все равно спасибо.


Ответить | Правка | ^ к родителю #3 | Наверх | Cообщить модератору

5. "Perl  objectSid Active Directory"  +/
Сообщение от drurus on 14-Фев-13, 13:03 
> Смотри здесь - http://people.samba.org/bzr/mwong/samba-soc/examples/misc/ad...

# $sval - содержит значение атрибута objectSid
my($sid_rev, $num_auths, $id1, $id2, @ids) = unpack("H2 H2 n N V*", $sval);
# $sid_rev=substr($sid_rev,1,1) if $sid_rev=~ /^0/;
$sval = join("-", "S", $sid_rev, ($id1<<32)+$id2, @ids);


Ответить | Правка | ^ к родителю #3 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру