解决方法
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; }
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。