sub QuerySNMP {
        use SNMP;
        #$SNMP::debugging = 2;
        $ENV{'MIBFILES'} = "LanMgr-Mib-II-MIB.my";
        my ($hostname) = shift @_;
        my ($session) = new SNMP::Session(
                DestHost => $hostname,
                Community => "public",
                UseSprintValue => 1,
        );

        if (!(defined($session))) {
                die "Session creation error:  $SNMP::Session::ErrorStr  - $!\n" ;
        }

        my ($vars) = new SNMP::VarList(['svPrintQName'],
                                                                   ['svShareComment
'],
                                                                );
        my ($q, $num_jobs, $share_comment) =  $session->getnext($vars);

        if ($session->{ErrorStr}) {;
                die "Getnext failed - error: " . $session->{ErrorStr} . " - $!\n"
        }
        while (!$session->{ErrorStr} ) {
                print "q - $q, comment - $share_comment\n";
                my ($q, $share_comment) =  $session->getnext($vars);
        }

}