if ($p->ping($computer)) {
	if ($key = $Registry->Open("/$computer/LMachine/SYSTEM/CurrentControlSet/" .
				"Control/ComputerName/ComputerName/", {Access=>KEY_READ}) ) {
					unless ($name = $key->GetValue("ComputerName")) {
						print "Could not attach to read ComputerName on $computer\n";
						printf $fh "Could not attach to read ComputerName on $computer\n";
					}