如何使用Perl的Active Directory？

发布时间：2020-12-16 06:24:01 所属栏目：大数据来源：网络整理

导读：我正在考虑编写一些与Active Directory交互的Perl脚本.对于Perl来说有点新,我想知道是否有任何人建议我使用的特定模块,工具,技术等.截至目前,我只想提取用户信息来处理脚本. 解决方法 Active Directory example code in Perl is available here的最佳来源.它

我正在考虑编写一些与Active Directory交互的Perl脚本.对于Perl来说有点新,我想知道是否有任何人建议我使用的特定模块,工具,技术等.截至目前,我只想提取用户信息来处理脚本.

解决方法

Active Directory example code in Perl is available here的最佳来源.它来自Robbie Allen,O’Reilly出色的 Active Directory Cookbook的合着者.

Here is an example从他们的食谱代码：

# 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;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!