Comment puis-je utiliser Active Directory à partir de Perl?

Question

J'envisage d'écrire des scripts Perl qui interagissent avec Active Directory. Étant un peu nouveau pour Perl, je me demandais s'il y avait des modules spécifiques, des outils, des techniques, etc. En ce moment, je cherche seulement à tirer l'information d'utilisateur pour traiter avec le manuscrit.

Answer 1

D'après ce que je comprends, il y a deux options:

• module OLE :: Win32
• Execute outils externes (suchs DSQuery, dsget, etc.) et analyser la sortie.

Je n'ai pas beaucoup d'expérience avec Win32 :: Ole, peut-être que quelqu'un d'autre peut développer un peu.

Answer 2

La meilleure source de Active Directory example code in Perl is available here. C'est de Robbie Allen, le co-auteur de l'excellent Active Directory Cookbook d'O'Reilly.

Here is an example de leur code de livre de cuisine:

# This Perl code finds all disabled user accounts in a domain. 

# --------------------------------------------------------------- 
# Adapted from VBScript code contained in the book: 
#  "Active Directory Cookbook" by Robbie Allen 
# ISBN: 0-596-00466-4 
# --------------------------------------------------------------- 

# ------ SCRIPT CONFIGURATION ------ 
my $strDomainDN = "<DomainDN>"; # e.g. dc=rallencorp,dc=com 
# ------ END CONFIGURATION --------- 
use Win32::OLE; 
$Win32::OLE::Warn = 3; 
my $strBase = "<LDAP://" . $strDomainDN . ">;"; 
my $strFilter = "(&(objectclass=user)(objectcategory=person)" . 
       "(useraccountcontrol:1.2.840.113556.1.4.803:=2));"; 
my $strAttrs = "name;"; 
my $strScope = "subtree"; 

my $objConn = Win32::OLE->CreateObject("ADODB.Connection"); 
$objConn->{Provider} = "ADsDSOObject"; 
$objConn->Open; 
my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $strScope); 
$objRS->MoveFirst; 
while (not $objRS->EOF) { 
    print $objRS->Fields(0)->Value,"\n"; 
    $objRS->MoveNext; 
}