- Perl objectSid Active Directory,
 chemtech, 18:15 , 28-Май-12 (1)> Добрый день.
> На Perl написан скрипт который вытаскивает из AD данные. Все поля вытаскиваются
> хорошо кроме objectSid и objectGUID. Вместо значений S-1-6-21-4h52121579-2073338045-1474639452-1109
> получаю вот это : ot�tn+cE�U
> Как мне все это привести в нужный мне вид почему он выдаёт
> в таком виде?Может оно в cp1251?
- Perl objectSid Active Directory, Renat, 22:56 , 28-Май-12 (2) –1
> Может оно в cp1251?Не этлсклрее всего бинарник, тоько вот как perl олм его привести в правильный вид я не знаю,
- Perl objectSid Active Directory, ACCA, 06:46 , 30-Май-12 (3)
- Perl objectSid Active Directory, renat, 15:50 , 30-Май-12 (4)
- Perl objectSid Active Directory, drurus, 13:03 , 14-Фев-13 (5)
> Смотри здесь - 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);
|
Версия для распечатки
Perl objectSid Active Directory, 
