FYI,
I prefer the Paul's method because no need of "WinNT:" object to be
installed.
Yves
-----Message d'origine-----
De: Ky-Anh Phan [mailto:[EMAIL PROTECTED]]
Date: jeudi 5 juillet 2001 19:35
�: 'Shea, Linchi'; [EMAIL PROTECTED]
Objet: RE: Enumerating NT domains
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
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
