#! /usr/sfw/bin/tclsh8.3
use Mozilla::LDAP::Conn;
$BASE_DN = "ou=People, ou=Intranet, dc=Co, dc=com";
$LDAP_PORT = "389";
$LDAP_SERVER = "ads.co.com";
my $connection;
$connection = new Mozilla::LDAP::Conn( "$LDAP_SERVER", "LDAP_PORT", "", "" );
die "Couldn't connect to LDAP server $LDAP_SERVER" unless $connection;
|