This works for me also ...
use Win32::OLE;;
use Win32::OLE::Enum qw/in with/;
use strict;
print join("\n",EnumDomains());
sub EnumDomains
{
my $namespace = Win32::OLE->GetObject('WinNT:');
return undef unless ($namespace) ;
my @returned;
$namespace->{Filter} = 'Domain';
map { push(@returned,$_->{Name});} (in $namespace);
return @returned;
}
> use Win32::Lanman;
> $domain = Win32::DomainName;
> Win32::Lanman::NetGetDCName('', "$domain", \$PDC);
> Win32::Lanman::NetEnumerateTrustedDomains("$PDC", \@domains);
> print "$domain\t$PDC\n";
> foreach $domain (@domains)
> {
> Win32::Lanman::NetGetDCName('', "$domain", \$PDC);
> print "$domain\t$PDC\n";
> }
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
