or download this
my $remKey= $Registry->Connect( $pc, $regKeyName,
{ Access=>Win32::TieRegistry::KEY_READ() } )
or Carp::croak("!! Couldn't connect to $pc or can't open reg key ($r
+egKeyName).\n".
"!! - Is File and Printer Sharing enabled?\n".
Win32API::Registry::regLastError(). "\n");