# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2

use Win32::OLE;

my $strPath;
# path to authenticate to in the directory service
my $strUsername;
# DN of the username
my $strPassword;
# plain text password
my $objNamespaceLDAP;
# ADSI namespace object
my $objMyObject;
# root object of the directory

$strPath = 'LDAP://dc=amer,dc=mycorp,dc=com';
$strUsername = 'cn=Administrator,cn=Users,dc=amer,dc=mycorp,dc=com';
$strPassword = 'the password goes here in plain text';

$objNamespaceLDAP = Win32::OLE->GetObject('LDAP:');
$objMyObject = $objNamespaceLDAP->OpenDSObject($strPath, $strUsername, $strPassword, 0);