Select Code to Download

    my $enum;
    eval {$enum = Win32::OLE::Enum->new("WinNT://$comp")};
...
        print "$comp is not NT/2000\n";
        return;
    }

sub RegConnect {
    
...
    }
    return 1;
}