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