my $conn = Win32::OLE->new("ADODB.Connection");
$conn->{Provider} = "ADsDSOObject";
$conn->Open("ADSI Provider");

##</code><code>##

#! /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;
##</code><code>##

D:\StratSync>testADSI.pl
Connectstring: LDAP://10.6.21.131/DC=mlhelab,DC=de
$VAR1 = undef;
Error in bind: Win32::OLE(0.1701) error 0x8002000e: "Unzulőssige Parameteranzahl"
    in METHOD/PROPERTYGET ""

D:\StratSync>

##</code><code>##

Function OpenDSObject(lpszDNName As String, lpszUserName As String, lpszPassword As String, lnReserved As Long) As Object