if ($key = $Registry->Connect("$computer","LMachine/Software/Network Associates/" .
      "TVD/NetShield NT/CurrentVersion/" {Access=>KEY_READ} ) ) {
	unless ($version = $key->GetValue("szProductVer")) {
	     $version = "Unknown";
	}

	unless ($dat = $key->GetValue("szVirDefVer")) {
	     $dat = "Unknown";
	}
					
	unless ($engine = $key->GetValue("szEngineVer")) {
	     $engine = "Unknown";
	}
}