use Perl

Programming Active Directory

posted by pudge on 2001.10.27 2:48   

An anonymous user writes, "I just noticed an article with a couple of links about Perl and NetWare and being able (if I read it right) to manipulate the NDS. Is it possible to use Perl to manipulate the Windows 2000 Active Directory?"

Beats me.

• All AD can be manipulated via WSH (Score:1)

  by jonnosan (2334)

  All of the Active Directory API is available to a script running unders Windows Scripting Host, including perl scripts. So yes, you can manipulate AD via perl, assuming your perl is running on a W2K box.
• Not difficult at all (Score:1)

  by Bryan_Casto (2337)

  If you're running the scripts from Win32 platforms, you can use Win32::OLE to interface to AD. Check out Perl for System Administrators from O'Reilly. We do this all the time to create and query user accounts in AD.
  • Re:Not difficult at all (Score:1)

    by jns (40)

    Whilst currently I have no need to do this kind of thing - it would nonetheless be nice to see some kind of tutorial on this. Perhaps one of you guys could write an article for here or perl.com about how you would approach this.
    
    /J\
    • Re:Not difficult at all (Score:1)

      by $code or die (1203)

      I've sung it's praises before [perlmonks.org], and I'll do it again. Dave Roth's [cpan.org] excellent book Win32 Perl Scripting: The Administrator's Handbook [roth.net] is a MUST if you are are doing any kind of server admin on Win32. It covers Active Directory and more
      
  • ADSILDAP Perl Module (Score:1)

    by jeremy.brinkman (5236)

    I have created a rudimentary perl module which allows user and group account management through ADSI. The ADSILDAP module has worked very well for the applications I have written. It is based on the NT user and group names as opposed to their LDAP distinguished names (although this functionality is also supported). The program is documented, with samples. Many of the concepts are derived from other perl programmers in the community, such as Steven Manross who wrote the Win32::Exchange module. Enough wi
• A sample (Score:1)

  by jonnosan (2334)

  Here's a sample to get you started:

  ---------------------
  use Win32::OLE;
  use strict;
  
  my $sysinfo = Win32::OLE->new('ADSystemInfo') || die ("Can't get sysinfo: ".Win32::OLE->LastError()."\n");
  
  my $username=$sysinfo->{UserName};
  print "Username:$username\n";
  
  my $adsuser = Win32::OLE->GetObject("LDAP://$username") || die ("Can't find user: ".Win32::OLE->LastError()."\n");
  print "CN: $adsuser->{cn}\n";
  print "Email address: $adsuser->{EmailAddress}\n";
  ---------------------

  This firs
• ugly code available (Score:1)

  by wickline (135)

  http://www.cpan.org/authors/id/W/WI/WICKLINE/adsib rowser-20010222.plt
  
  This was some code I was monkeying with in an effort to grok ADSI a while back. It doesn't try to write anything, but just lets you nose around the directory structure via cgi. It's not pretty, but maybe you'd find it useful. The comments reference a couple of other resources I used when working on that stuff
  
  http://opensource.activestate.com/authors/tobyever ett/
  
  http://www.asptoday.com/articles/19990310.htm