use strict; 
use Win32::AdminMisc; 
use Win32::NetAdmin; 
my $PDC; 
my @List; 
my $file = "C:\\temp\\NODE.txt"; 
my $Domain = Win32::DomainName();

unless (open (FILE,">$file")) { 
    die $!; 
}

Win32::NetAdmin::GetDomainController("",$Domain,$PDC); 
    if (Win32::AdminMisc::GetMachines($PDC,UF_WORKSTATION_TRUST_ACCOUNT,\@List,)) { 
            map {print "$_\n"} @List; 
            map {print FILE "$_"."\n"} @List;

    } 
close (FILE);