#!d:/Perl/bin/Perl.exe

use CGI;
use CGI::Carp;
use Win32::OLE;
use strict;

my $cgi = CGI->new;
print STDOUT $cgi->header;

my ($username, $password) = ('myusername', 'mypassword');

my $objNameSpace = Win32::OLE->GetObject('LDAP:') or
    croak( 'Cannot create LDAP object - ', $! );
my $objObjSec = $objNameSpace->OpenDSObject(
    'LDAP://DC=mydomain,DC=com',
    $username,
    $password,
    1
);

if (Win32::OLE->LastError() == 0) {
    print STDOUT "Success!\n";
    $objObjSec->close;
} else {
    print STDOUT "Failure!\n";
}

$objNameSpace->close;
exit 0;