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