sub store_sysobjid
{
my ($session, $group, $site_name ) = @_;
   if (!defined($session->var_bind_list)) {
   $results_table->{$$group}}->{$$site_name} = {
                                                sysobjid => "unknown",
                                                snmp_status => "NOT OK",
                                            };

   printf("%-15s  ERROR: %s\n", $session->hostname, $session->error);

   } else {
   $results_table->{$$group}->{$$site_name} = {
                                                sysobjid => ${$session->var_bind_list}{$oids{sysobjid}},
                                                snmp_status => "OK"};
	}
}