Try:
#--------------------------
use Win32::OLE;
my $nto = Win32::OLE->CreateObject("NameTranslate");
$nto->Init(3, "");
print "Init: " . Win32::OLE->LastError() . "\n";

$nto->Set(3, "$Domain\\$user");
print "Set: " . Win32::OLE->LastError() . "\n";

my $ADS_NAME_TYPE_1779 = $nto->Get(1);
print "Get: " . Win32::OLE->LastError() . "\n";

print  $ADS_NAME_TYPE_1779 ."\n";
#---------------------------

Lookup NameTranslate at http://MSDN.Microsoft.com.


-----Original Message-----
From: henry isham [mailto:[EMAIL PROTECTED]] 
Sent: Thursday, July 11, 2002 2:11 PM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: PerLDAP and ADSI

Hi all,

I'm working a little dilemma here. We have a Win2K Domain that is in mixed
mode (it can server both NT and 2K machines). I have a userid (i.e.
mydomain\username) and I'm trying to search the AD to get the full DN
(CN=username,OU=Lan Team,DC=corp,DC=mydomain,DC=net). I've tried to user
Win32::OLE, but it doesn't seem to search (I can't find documentation that
shows how. I tried using PerLDAP with the following code:

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to