ADO example (Perl)

This code can be found in Chapter 4 of Managing Enterprise Active Directory Services

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# ----------------------------------------------------------------------
# From the book "Managing Enterprise Active Directory Services"
# ISBN: 0-672-32125-4
# Copyright (C) 2002 by Addison-Wesley
# Script by Robbie Allen
# 
# ----------------------------------------------------------------------
use Win32::OLE;
my $conn = Win32::OLE->new('ADODB.Connection');
$conn->{Provider} = "ADsDSOObject";
$conn->Open;
my $res  = $conn->Execute("SELECT ADsPath FROM 'LDAP://dc=xyz,dc=com' WHERE sn='Doe'");
while (!($res->EOF)) {
   print $res->Fields('ADsPath')->Value,"\n";
   $res->MoveNext;
}

This code has been viewed 1716 times.

New from the creators of TechTasks.com: StatSheet.com