atime to LDAP to Perl

Question

Perl에서 LDAP에 연결하여 값을 검색하고 CSV 파일에 게시하는 스크립트를 만들었습니다. 쿼리를 통해 검색하는 값은 d "distinguished name, userAccountControl & pwdLastSet입니다. 처음 두 결과를 올바르게 구문 분석하여 CSV 파일에 게시 할 수 있지만 pwdLastSet은 WIN32 :: OLE = HASH (0x. ......). 나는 피곤 sprintf를, 진수()를 가지고 있고, 결과는 WIN32 값 또는 0 내가 뭔가 길이가 18 자리. 도움을 주셔서 감사합니다 기대하고 중 하나입니다.

#!/usr/bin/perl 
use xSV; 
use Win32; 
use Win32::OLE; 
# use strict; 
. 
. 
. 
. 
    while ($line = <GROUPS>) { 
     chomp($line); 
     if ($line =~ m/^ user .*/) { 
      $line =~ s/^ user.\s//; 
      my ($objRootDSE, $strDomain, $strUsername, $objConnection, $objCommand, $objRecordSet, $strDN, $arrSplitResponse, $strLName, $strFName, $strUserType); 
      use constant ADS_SCOPE_SUBTREE => 2; 
      # Get domain components 
      $objRootDSE = Win32::OLE->GetObject('LDAP://RootDSE'); 
      $strDomain = $objRootDSE->Get('DefaultNamingContext'); 
      # Get username to search for 
      $strUsername = $line; 
      # Set ADO connection 
      $objConnection = Win32::OLE->new('ADODB.Connection'); 
      $objConnection->{Provider} = 'ADsDSOObject'; 
      $objConnection->Open('Active Directory Provider'); 
      # Set ADO command 
      $objCommand = Win32::OLE->new('ADODB.Command'); 
      $objCommand->{ActiveConnection} = $objConnection; 
      $objCommand->SetProperty("Properties", 'Searchscope', ADS_SCOPE_SUBTREE); 
      $objCommand->{CommandText} = 'SELECT distinguishedName, userAccountControl, pwdLastSet FROM \'LDAP://' . $strDomain . '\' WHERE objectCategory=\'user\' AND samAccountName = \'' . $strUsername . '\''; 
      # Set recordset to hold the query result 
      $objRecordSet = $objCommand->Execute; 
      # If a user was found - Retrieve the distinguishedName 
      if (!$objRecordSet->EOF) { 
       $strDN = $objRecordSet->Fields('distinguishedName')->Value; 
       $strAcctControl = $objRecordSet->Fields('userAccountControl')->Value; 
       $strpwdLS = sprintf($objRecordSet->Fields('pwdLastSet')->Value); 
       @arrSplitResponse = split(/,/, $strDN); 
       $strLName = substr($arrSplitResponse[0],3); 
       if ($strLName =~ m/\\$/) { 
        $strLName = substr($strLName,0,-1); 
       } 
       $strFName = $arrSplitResponse[1]; 
       if ($strFName =~ m/OU=/) { 
        $strUserType = $strFName; 
        $strFName = ""; 
        $strUserType = substr($strUserType,3); 
       } else { 
        $strUserType = substr($arrSplitResponse[2],3); 
        } 
       if ($strAcctControl == 512) { 
        $strAcctControl = "Active"; 
       } else { 
        $strAcctControl = "Disabled"; 
       } 
      } else { 
       print "No user found"; 
      } 
      &debug("Match!: $line in $group\n"); 
      $csv->print_data(
       AccountName => $line, 
       LastName => $strLName, 
       FirstName => $strFName, 
       SYSGenericAcct => $strUserType, 
       AccessLevel => $group, 
       AccessCapability => "User", 
       Description => $desc, 
       Status => $strAcctControl, 
       LastPwdChange => $strpwdLS 
      ); 
     } else { 
      $group = $line; 
      chomp($desc = <GROUPS>); 
      chomp($group2 = <GROUPS>); 
      &debug("$group\n$desc\n$group\n"); 
     } 
    } 

Answer 1

사용 Net :: Ldap은 AD 서버를 검색하는데 빠르며 이식성이 뛰어납니다. 리눅스에서도 다른 호스트의 AD 서버를 검색 할 수 있으며, 빠르고 성숙한 모듈입니다.

, 데이터 :: 덤퍼 사용.

사용 데이터 :: 덤퍼; ... 인쇄 Dumper ($ strpwdLS); http://code.activestate.com/lists/pdk/3876/이

# Calculate password age in days 
my $PWage; 
my $LastPW = $item->{pwdLastSet}; 
my $fRef = ref ($LastPW); 
my ($Hval, $Lval); 
if ($fRef eq 'Win32::OLE') 
{ 
    $Hval = $LastPW->HighPart; 
    $Lval = $LastPW->LowPart; 
    my $Factor = 10000000; # convert to seconds 
    my $uPval = pack("II",$Lval,$Hval); 
    my ($bVp, $aVp) = unpack("LL", $uPval); 
    $uPval = ($aVp*2**32+$bVp)/$Factor; 
    if ($uPval != 0) 
    { 
     $uPval -= 134774*86400; #Adjust for perl time! 
     my $EpochSeconds = time; 
     $PWage = ($EpochSeconds - int($uPval))/(60*60*24) ; 
     $PWage =~ s/\..*$//; 
    } 
}