----- Original Message -----
From: "Bullock, Howard A." <[EMAIL PROTECTED]>
To: "perl-win32-users" <perl-win32-users@listserv.ActiveState.com>
Sent: Thursday, February 16, 2006 1:29 AM
Subject: Win32::API Help
> I can't seems to get the API call to work. Can someone give me some
> guidance?
.
.
Not sure ... and I'm not really set up to test ... try something like:
use Win32::API;
use strict;
use warnings;
use constant DS_DOMAIN_DIRECT_INBOUND => 2;
use constant DS_DOMAIN_DIRECT_OUTBOUND => 2;
use constant DS_DOMAIN_IN_FOREST => 1;
use constant DS_DOMAIN_NATIVE_MODE => 16;
use constant DS_DOMAIN_PRIMARY => 8;
use constant DS_DOMAIN_TREE_ROOT => 4;
use constant DS_DOMAIN_VALID_FLAGS => 63;
my ($domains, $domainCount) = ('' x 500, '' x 100);
my $DsEnumerateDomainTrusts = new Win32::API('Netapi32',
'DsEnumerateDomainTrusts', 'PNPP', 'N');
if(! $DsEnumerateDomainTrusts) {
die "Can't import API DsEnumerateDomainTrusts: $^E";
}
my $ret = $DsEnumerateDomainTrusts->Call
('bullockha3', DS_DOMAIN_DIRECT_INBOUND, $domains, $domainCount);
print "Return: $ret\nDomains: $domains\nDomain Count: $domainCount\n";
if($ret & 1004) {print "ERROR: ERROR_INVALID_FLAGS\n"}
if($ret & 1311) {print "ERROR: ERROR_NO_LOGON_SERVERS\n"}
if($ret & 1786) {print "ERROR: ERROR_NO_TRUST_LSA_SECRET\n"}
if($ret & 1787) {print "ERROR: ERROR_NO_TRUST_SAM_ACCOUNT\n"}
if($ret & 50) {print "ERROR: ERROR_NOT_SUPPORTED\n"}
if(!$ret) {print "No error\n"}
__END__
Cheers,
Rob
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
