if( "" ne $Config{domain} ) { # $Config{machine} = ""; # Win32::NetAdmin::GetDomainController( '', # $Config{domain}, # $Config{machine} ); # Win32::NetAdmin::GetServers( $Config{machine}, # $Config{domain}, # SV_TYPE_DOMAIN_CTRL, # \@MachineList ); @MachineList = qw(SERVER1 SERVER2 SERVER3); }