#! /usr/bin/perl
use warnings;
use strict;

use Win32;
use Win32::OLE;
use Win32::OLE::Variant;

my $server = "10.6.5.4";
my $base   = "DC=myCompany,DC=at";
my $user   = "cn=Administrator,cn=Users,$base";
#my $user  = "Administrator";
my $pass   = 'abcdefg';

my $objNameSpace = Win32::OLE->GetObject("LDAP://$server/$base")
  or die "Error: can't create LDAP object: $!\n";

# until now, everything has been fine, but now...
#my $connectString = "LDAP://$server/$base";
#my $connectString = "LDAP://$base";
#my $connectString = "LDAP://$server/";
my $connectString = "LDAP:///$base";

print "Connectstring: $connectString\n";

my $conn = $objNameSpace->OpenDSObject
  ($connectString, $user, $pass, 0x01);

use Data::Dumper; print Dumper($conn); # conn is undef

my $err = Win32::OLE->LastError();
die "Error in bind: $err\n" if $err;