my $ad_server  = Win32::OLE->GetObject ("LDAP://servername")
  or die $!;

##</code><code>##

my $adpath = "LDAP://$server/DC=my,DC=domain,DC=edu";