如何使用Perl的Active Directory？

概述我正在考虑编写一些与Active Directory交互的Perl脚本.对于Perl来说有点新,我想知道是否有任何人建议我使用的特定模块,工具,技术等.截至目前,我只想提取用户信息来处理脚本. Active Directory example code in Perl is available here的最佳来源.它来自Robbie Allen,O’Reilly出色的 Active Directo 我正在考虑编写一些与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;}

总结

以上是内存溢出为你收集整理的如何使用Perl的Active Directory？全部内容，希望文章能够帮你解决如何使用Perl的Active Directory？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。