what you don't know can hurt you

snmpcheck.pl.txt

snmpcheck.pl.txt
Posted Jan 8, 2006
Authored by Matteo Cantoni | Site nothink.org

snmpcheck is a tool to get information via SNMP protocols for Windows, Linux, Cisco, HP-UX and SunOS platforms. Tested on GNU/Linux, *BSD and Windows (Cygwin and ActivePerl) systems. Distributed under the GPL license and based on Athena-2k script by jshaw.

tags | tool, scanner, protocol
systems | cisco, linux, windows, unix, solaris, bsd, hpux
MD5 | 336c228eabd30a3119c070ba6123e9b2

snmpcheck.pl.txt

Change Mirror Download
#!/usr/bin/perl

#
# Copyright (c) 2005,2006 by Matteo Cantoni <goony@nothink.org>
#
# snmpcheck is a tool to get information via SNMP protocols on Windows, Linux, Cisco, HP-UX, SunOS platforms.
# snmpchek has been tested on GNU/Linux, *BSD and Windows (Cygwin and ActivePerl) systems.
# snmpcheck is distributed under GPL license and based on "Athena-2k" script by jshaw.
#

use strict;
use Getopt::Std;
use IO::Socket;
use Net::SNMP;

my $name = "snmpcheck.pl";
my $version = "v1.0";
my $description = "snmp enumerator";
my $copyright = "Copyright (c) 2005";
my $author = "Matteo Cantoni <goony\@nothink.org>";

#####################################################################################################
# MIBs Involved
my $mibDescr = "1.3.6.1.2.1.1.1.0"; # System Description
my $mibNTDomain = "1.3.6.1.4.1.77.1.4.1.0"; # NT Primary Domain
my $mibUptime = "1.3.6.1.2.1.1.3.0"; # System Uptime
my $mibContact = "1.3.6.1.2.1.1.4.0"; # System Contact
my $mibName = "1.3.6.1.2.1.1.5.0"; # System Name
my $mibLocation = "1.3.6.1.2.1.1.6.0"; # System Location
my $mibRunning = "1.3.6.1.2.1.25.4.2.1.2"; # Running Programs
my $mibRunPid = "1.3.6.1.2.1.25.4.2.1.1"; # Running PIDs
my $mibProName = "1.3.6.1.4.1.42.3.12.1.1.10"; # Running Process Name (Solaris)
my $mibProPid = "1.3.6.1.4.1.42.3.12.1.1.1"; # Running Process Pid (Solaris)
my $mibProUser = "1.3.6.1.4.1.42.3.12.1.1.8"; # Running Process User (Solaris)
my $mibInstalled = "1.3.6.1.2.1.25.6.3.1.2"; # Installed Programs
my $mibInstDate = "1.3.6.1.2.1.25.6.3.1.5"; # Installed Date
my $mibServices = "1.3.6.1.4.1.77.1.2.3.1.1"; # Services (add to it)
my $mibAccounts = "1.3.6.1.4.1.77.1.2.25"; # User Accounts
my $mibDateTime = "1.3.6.1.2.1.25.1.2.0"; # System Date & Time
my $mibMemSize = "1.3.6.1.2.1.25.2.2.0"; # Total System Memory
my $mibMotd = "1.3.6.1.4.1.42.3.1.3.0"; # Motd (Solaris)
# Storage
my $mibStorDescr = "1.3.6.1.2.1.25.2.3.1.3"; # Storage Description
my $mibStoreHP = "1.3.6.1.4.1.11.2.3.1.2"; # Storage Description (HP-UX)
my $mibStorSize = "1.3.6.1.2.1.25.2.3.1.5"; # Storage Total Size
my $mibStorUsed = "1.3.6.1.2.1.25.2.3.1.6"; # Storage Used
my $mibPtype = "1.3.6.1.2.1.25.3.8.1.4"; # Partition Type
my $mibSDType = "1.3.6.1.2.1.25.2.3.1.2"; # Storage Device Type
# Network
my $mibInt = "1.3.6.1.2.1.2.2.1.2"; # Network Interfaces
my $mibIntMTU = "1.3.6.1.2.1.2.2.1.4"; # Net Int MTU Size
my $mibIntSpeed = "1.3.6.1.2.1.2.2.1.5"; # Net Int Speed
my $mibIntBytesIn = "1.3.6.1.2.1.2.2.1.10"; # Net Int Octets In
my $mibIntBytesOut = "1.3.6.1.2.1.2.2.1.16"; # Net Int Octects Out
my $mibIntPhys = "1.3.6.1.2.1.2.2.1.6"; # Int MAC addr
my $mibAdminStat = "1.3.6.1.2.1.2.2.1.7"; # Int up/down?
my $mibIPForward = "1.3.6.1.2.1.4.1.0"; # IP Forwarding?
my $mibIPAddr = "1.3.6.1.2.1.4.20.1.1"; # Int IP Address
my $mibNetmask = "1.3.6.1.2.1.4.20.1.3"; # Int IP Netmask
# IIS
my $http_totalBytesSentLowWord = "1.3.6.1.4.1.311.1.7.3.1.2.0"; # totalBytesSentLowWord
my $http_totalBytesReceivedLowWord = "1.3.6.1.4.1.311.1.7.3.1.4.0"; # totalBytesReceivedLowWord
my $http_totalFilesSent = "1.3.6.1.4.1.311.1.7.3.1.5.0"; # totalFilesSent
my $http_currentAnonymousUsers = "1.3.6.1.4.1.311.1.7.3.1.6.0"; # currentAnonymousUsers
my $http_currentNonAnonymousUsers = "1.3.6.1.4.1.311.1.7.3.1.7.0"; # currentNonAnonymousUsers
my $http_totalAnonymousUsers = "1.3.6.1.4.1.311.1.7.3.1.8.0"; # totalAnonymousUsers
my $http_totalNonAnonymousUsers = "1.3.6.1.4.1.311.1.7.3.1.9.0"; # totalNonAnonymousUsers
my $http_maxAnonymousUsers = "1.3.6.1.4.1.311.1.7.3.1.10.0"; # maxAnonymousUsers
my $http_maxNonAnonymousUsers = "1.3.6.1.4.1.311.1.7.3.1.11.0"; # maxNonAnonymousUsers
my $http_currentConnections = "1.3.6.1.4.1.311.1.7.3.1.12.0"; # currentConnections
my $http_maxConnections = "1.3.6.1.4.1.311.1.7.3.1.13.0"; # maxConnections
my $http_connectionAttempts = "1.3.6.1.4.1.311.1.7.3.1.14.0"; # connectionAttempts
my $http_logonAttempts = "1.3.6.1.4.1.311.1.7.3.1.15.0"; # logonAttempts
my $http_totalGets = "1.3.6.1.4.1.311.1.7.3.1.16.0"; # totalGets
my $http_totalPosts = "1.3.6.1.4.1.311.1.7.3.1.17.0"; # totalPosts
my $http_totalHeads = "1.3.6.1.4.1.311.1.7.3.1.18.0"; # totalHeads
my $http_totalOthers = "1.3.6.1.4.1.311.1.7.3.1.19.0"; # totalOthers
my $http_totalCGIRequests = "1.3.6.1.4.1.311.1.7.3.1.20.0"; # totalCGIRequests
my $http_totalBGIRequests = "1.3.6.1.4.1.311.1.7.3.1.21.0"; # totalBGIRequests
my $http_totalNotFoundErrors = "1.3.6.1.4.1.311.1.7.3.1.22.0"; # totalNotFoundErrors
# Shares
my $mibShareName = "1.3.6.1.4.1.77.1.2.27.1.1"; # Reports Share Names
my $mibSharePath = "1.3.6.1.4.1.77.1.2.27.1.2"; # Reports Share Path
my $mibShareComm = "1.3.6.1.4.1.77.1.2.27.1.3"; # Reports Share Comments
# Routing Info
my $mibRouteDest = "1.3.6.1.2.1.4.21.1.1"; # Route Destinations
my $mibRouteMetric = "1.3.6.1.2.1.4.21.1.3"; # Route Metric
my $mibRouteNHop = "1.3.6.1.2.1.4.21.1.7"; # Route Next Hop
my $mibRouteMask = "1.3.6.1.2.1.4.21.1.11"; # Route Mask
# TCP Connections
my $mibTCPState = "1.3.6.1.2.1.6.13.1.1"; # TCP Connect State
my $mibTCPLAddr = "1.3.6.1.2.1.6.13.1.2"; # TCP Local Address
my $mibTCPLPort = "1.3.6.1.2.1.6.13.1.3"; # TCP Local Port
my $mibTCPRAddr = "1.3.6.1.2.1.6.13.1.4"; # TCP Remote Address
my $mibTCPRPort = "1.3.6.1.2.1.6.13.1.5"; # TCP Remote Port
# UDP Listening
my $mibUDPLAddr = "1.3.6.1.2.1.7.5.1.1"; # UDP Local Address
my $mibUDPLPort = "1.3.6.1.2.1.7.5.1.2"; # UDP Local Port
#####################################################################################################

my ($session,$error,$response,$temp,$a);

my $windows = 0;
my $linux = 0;
my $cisco = 0;
my $sunos = 0;
my $hpux = 0;

my $timeout = 15;
my $retries = 2;
my $webport = 80;
my %option;

my $usage = "$name $version - $description\n$copyright by $author\n
Usage ./$name -t host [-p udp/tcp] [-P] [-c] [-h]\n
\t-t : target host;
\t-p : set snmp protocol; default is \'udp\';
\t-P : set snmp port; default port is \'161\';
\t-c : set snmp community; default is \'public\';
\t-h : show help menu;\n\n";

our ($opt_t, $opt_p, $opt_P, $opt_c, $opt_h);
getopts("t:p:P:c:h");
die $usage if $opt_h;
die $usage if !$opt_t;

my $remote = $opt_t;
my $community = $opt_c || "public";
my $protocol = $opt_p || "udp";
my $port = $opt_P || 161;

$|=1;

print "$name $version - $description\n$copyright by $author\n\n";

Connect();

print "\n";

exit(0);

sub Connect{
($session, $error) = Net::SNMP->session(
Hostname => $remote,
Community => $community,
Domain => $protocol,
Port => $port,
Timeout => $timeout,
Retries => $retries
);

die " ERROR: $error\n\n" if !$session;

my $Descr = GetRequest($mibDescr);
for ($Descr){ s/^\s//; }
$windows = 1 if ($Descr =~ /^Hardware/i);
$linux = 1 if ($Descr =~ /^Linux/i);
$cisco = 1 if ($Descr =~ /^Cisco/i);
$sunos = 1 if ($Descr =~ /^Sun/i);
$hpux = 1 if ($Descr =~ /^HP-UX/i);

my $Name = GetRequest($mibName);
my $Contact = GetRequest($mibContact);
my $Location = GetRequest($mibLocation);
my $Uptime = GetRequest($mibUptime);

print " Hostname : $Name\n";
print " Ip address : $remote\n";

if ($windows == 1){
my @Descr = split(/:/, $Descr);
my $NTDomain = GetRequest($mibNTDomain);
my $Uptime = GetRequest($mibUptime);
for ($Descr[1]){ s/^\s//; }
for ($Descr[2]){ s/^\s//; }

print " Hardware : $Descr[1]\n";
print " Software : $Descr[2]\n";
print " Primary Domain : $NTDomain\n";
print " System Uptime : $Uptime\n";
print " Contact : $Contact\n";
print " Location : $Location\n";
}

if ($linux == 1){
my @Descr_linux = $Descr;
for (@Descr_linux){ s/\r\n//g; }

print " Hardware : @Descr_linux\n";
print " System Uptime : $Uptime\n";
print " Contact : $Contact\n";
print " Location : $Location\n";
}

if ($cisco == 1){
my @Descr_cisco = $Descr;
for (@Descr_cisco){ s/\r\n//g; }

print " Hardware : @Descr_cisco\n";
print " System Uptime : $Uptime\n";
print " Contact : $Contact\n";
print " Location : $Location\n";
}

if ($sunos == 1){
my $motd = GetRequest($mibMotd);
chomp $motd;
print " Hardware : $Descr\n";
print " System Uptime : $Uptime\n";
print " Motd : $motd\n";
print " Contact : $Contact\n";
print " Location : $Location\n";
}

if ($hpux == 1){
print " Hardware : $Descr\n";
print " System Uptime : $Uptime\n";
print " Contact : $Contact\n";
print " Location : $Location\n";
}

#
# Hardware
#

if ($windows == 1){
my $MemSize = GetRequest($mibMemSize);
my @StorDescr = GetTable($mibStorDescr);
my @SDType = GetTable($mibSDType);
my @Ptype = GetTable($mibPtype);

print "\n\n Hardware\n";
print " -------------------------------------------------------------------------\n\n";
print " Total Memory : $MemSize KB\n";

for ($a = 0; $a < $#StorDescr; $a++){

if ($SDType[$a] eq "1.3.6.1.2.1.25.2.1.3"){
$SDType[$a] = "Virtual Memory";
}

if ($SDType[$a] eq "1.3.6.1.2.1.25.2.1.4"){
$SDType[$a] = "Fixed Disk";
}

if ($SDType[$a] eq "1.3.6.1.2.1.25.2.1.5"){
$SDType[$a] = "Removable Disk";
}

if ($SDType[$a] eq "1.3.6.1.2.1.25.2.1.7"){
$SDType[$a] = "Compact Disc";
}

if ($Ptype[$a] eq "1.3.6.1.2.1.25.3.9.2"){
$Ptype[$a] = "UNKNOWN";
}

if ($Ptype[$a] eq "1.3.6.1.2.1.25.3.9.9"){
$Ptype[$a] = "NTFS";
}

if ($StorDescr[$a] ne "Virtual Memory"){
print "\n";
print " $StorDescr[$a]\n";
print "\t Device Type : $SDType[$a]\n";
print "\t Partition Type : $Ptype[$a]\n";
}
}
}

if ($hpux == 1){
my @StorDescr = GetTable($mibStoreHP);

print "\n\n Hardware\n";
print " -------------------------------------------------------------------------\n\n";

for ($a = 0; $a < $#StorDescr; $a++){
print " $StorDescr[$a]\n" if (grep(/\//,$StorDescr[$a]));
}
}

#
# User accounts
#

if ($windows == 1){
my @Accounts = GetTable($mibAccounts);

print "\n\n User accounts\n";
print " -------------------------------------------------------------------------\n\n";

foreach $temp(@Accounts){
print " $temp\n";
}
}

#
#
# Processes
#

if ($windows == 1){
my @Running = GetTable($mibRunning);
my @RunPid = GetTable($mibRunPid);

print "\n\n Processes\n";
print " -------------------------------------------------------------------------\n";
printf "\n %10s %25s\n", "process id", "process name";
printf " %10s %25s\n\n", "----------", "------------";
for ($a = 0; $a < scalar(@RunPid); $a++){
if ($Running[$a] ne " System Idle Process"){
printf " %10s %25s\n", $RunPid[$a], $Running[$a];
}
}
}

if ($linux == 1){
my @Running = GetTable($mibRunning);
my @RunPid = GetTable($mibRunPid);

print "\n\n Processes\n";
print " -------------------------------------------------------------------------\n";
printf "\n %10s %25s\n", "process id", "process name";
printf " %10s %25s\n\n", "----------", "------------";
for ($a = 0; $a < scalar(@RunPid); $a++){
if ($Running[$a] ne " System Idle Process"){
printf " %10s %25s\n", $RunPid[$a], $Running[$a];
}
}
}

if ($sunos == 1){
my @Running = GetTable($mibProName);
my @RunPid = GetTable($mibProPid);
my @RunUser = GetTable($mibProUser);

print "\n\n Processes\n";
print " -------------------------------------------------------------------------\n\n";
printf "\n %10s %25s %25s\n", "process ID", "process name", "user name";
printf " %10s %25s %25s\n\n", "----------", "------------", "---------";

for ($a = 0; $a < scalar(@RunPid); $a++){
if ($Running[$a] ne " System Idle Process"){
printf " %10s %25s %25s\n", $RunPid[$a], $Running[$a], $RunUser[$a];
}
}
}

#
# Network services
#

if ($windows == 1){
my @Services = GetTable($mibServices);

print "\n\n Network services\n";
print " -------------------------------------------------------------------------\n\n";

foreach $temp(@Services){
print " $temp\n";
}
}

#
# IIS
#

if ($windows == 1){

my $connect = IO::Socket::INET->new(
PeerAddr => $remote,
PeerPort => $webport,
Proto => 'tcp',
Timeout => $timeout
);

if ($connect){
my $http_totalBytesSentLowWord = GetRequest($http_totalBytesSentLowWord);
my $http_totalBytesReceivedLowWord = GetRequest($http_totalBytesReceivedLowWord);
my $http_totalFilesSent = GetRequest($http_totalFilesSent);
my $http_currentAnonymousUsers = GetRequest($http_currentAnonymousUsers);
my $http_currentNonAnonymousUsers = GetRequest($http_currentNonAnonymousUsers);
my $http_totalAnonymousUsers = GetRequest($http_totalAnonymousUsers);
my $http_totalNonAnonymousUsers = GetRequest($http_totalNonAnonymousUsers);
my $http_maxAnonymousUsers = GetRequest($http_maxAnonymousUsers);
my $http_maxNonAnonymousUsers = GetRequest($http_maxNonAnonymousUsers);
my $http_currentConnections = GetRequest($http_currentConnections);
my $http_maxConnections = GetRequest($http_maxConnections);
my $http_connectionAttempts = GetRequest($http_connectionAttempts);
my $http_logonAttempts = GetRequest($http_logonAttempts);
my $http_totalGets = GetRequest($http_totalGets);
my $http_totalPosts = GetRequest($http_totalPosts);
my $http_totalHeads = GetRequest($http_totalHeads);
my $http_totalOthers = GetRequest($http_totalOthers);
my $http_totalCGIRequests = GetRequest($http_totalCGIRequests);
my $http_totalBGIRequests = GetRequest($http_totalBGIRequests );
my $http_totalNotFoundErrors = GetRequest($http_totalNotFoundErrors);

print "\n\n IIS\n";
print " -------------------------------------------------------------------------\n\n";

print " totalBytesSentLowWord : $http_totalBytesSentLowWord\n";
print " totalBytesReceivedLowWord : $http_totalBytesReceivedLowWord\n";
print " totalFilesSent : $http_totalFilesSent\n";
print " currentAnonymousUsers : $http_currentAnonymousUsers\n";
print " currentNonAnonymousUsers : $http_currentNonAnonymousUsers\n";
print " totalAnonymousUsers : $http_totalAnonymousUsers\n";
print " totalNonAnonymousUsers : $http_totalNonAnonymousUsers\n";
print " maxAnonymousUsers : $http_maxAnonymousUsers\n";
print " maxNonAnonymousUsers : $http_maxNonAnonymousUsers\n";
print " currentConnections : $http_currentConnections\n";
print " maxConnections : $http_maxConnections\n";
print " connectionAttempts : $http_connectionAttempts\n";
print " logonAttempts : $http_logonAttempts\n";
print " totalGets : $http_totalGets\n";
print " totalPosts : $http_totalPosts\n";
print " totalHeads : $http_totalHeads\n";
print " totalOthers : $http_totalOthers\n";
print " totalCGIRequests : $http_totalCGIRequests\n";
print " totalBGIRequests : $http_totalBGIRequests\n";
print " totalNotFoundErrors : $http_totalNotFoundErrors\n";
}
}

#
# Network & Interfaces
#

my @Int = GetTable($mibInt);
my @MTU = GetTable($mibIntMTU);
my @IntSpeed = GetTable($mibIntSpeed);
my @IntBytesIn = GetTable($mibIntBytesIn);
my @IntBytesOut = GetTable($mibIntBytesOut);
my @IntPhys = GetTable($mibIntPhys);
my @IPAddr = GetTable($mibIPAddr);
my @Netmask = GetTable($mibNetmask);
my @AdminStat = GetTable($mibAdminStat);
my $IPForward = GetRequest($mibIPForward);

if ($IPForward eq "0" || $IPForward eq "2") { $IPForward = "no"; }

print "\n\n Network interfaces\n";
print " -------------------------------------------------------------------------\n\n";
print " IP Forwarding Enabled : $IPForward\n\n";

for ($a = 0; $a < scalar(@Int); $a++){

chomp $Int[$a];

if ($AdminStat[$a] eq "0"){
$AdminStat[$a] = "down";
} else {
$AdminStat[$a] = "up";
}

$IntSpeed[$a] = $IntSpeed[$a] / 1000000;
print " Interface : [ $AdminStat[$a] ] $Int[$a]\n";
print "\tHardware Address : $IntPhys[$a]\n";
print "\tInterface Speed : $IntSpeed[$a] Mbps\n";
print "\tIP Address : $IPAddr[$a]\n" if $IPAddr[$a];
print "\tNetmask : $Netmask[$a]\n" if $IPAddr[$a];
print "\tBytes In : $IntBytesIn[$a]\n" if $IntBytesIn[$a];
print "\tBytes Out : $IntBytesOut[$a]\n" if $IntBytesOut[$a];
print "\n";
}

#
# Routing information
#

my @RouteDest = &GetTable($mibRouteDest);
my @RouteNHop = &GetTable($mibRouteNHop);
my @RouteMask = &GetTable($mibRouteMask);
my @RouteMetric = &GetTable($mibRouteMetric);

print "\n Routing information\n";
print " -------------------------------------------------------------------------\n\n";
print " Destination:\t Next Hop:\t Mask:\tMetric:\n";
print " ------------\t ---------\t -----\t-------\n";

for ($a = 0; $a < scalar(@RouteDest); $a++){
printf "%17s%17s%17s%7s\n", $RouteDest[$a], $RouteNHop[$a],
$RouteMask[$a], $RouteMetric[$a];
}

my @TCPState = &GetTable($mibTCPState);
my @TCPLAddr = &GetTable($mibTCPLAddr);
my @TCPLPort = &GetTable($mibTCPLPort);
my @TCPRAddr = &GetTable($mibTCPRAddr);
my @TCPRPort = &GetTable($mibTCPRPort);

#
# TCP Connections
#

print "\n\n TCP connections\n";
print " -------------------------------------------------------------------------\n\n";
print " Local Address: Port Remote Address: Port\n\n";

for ($a = 0; $a < scalar(@TCPState); $a++){

if ($TCPState[$a] eq "2") { $TCPState[$a] = "(listening)"; }
if ($TCPState[$a] eq "5") { $TCPState[$a] = "(established)"; }
if ($TCPState[$a] eq "8") { $TCPState[$a] = "(Close Wait)"; }
if ($TCPState[$a] eq "11") { $TCPState[$a] = "(time wait)"; }

printf " %15s:%6s %17s:%6s\n", $TCPLAddr[$a], $TCPLPort[$a], $TCPRAddr[$a], $TCPRPort[$a];
}

#
# Listening UDP Ports
#

my @UDPLAddr = GetTable($mibUDPLAddr);
my @UDPLPort = GetTable($mibUDPLPort);

print "\n\n Listening UDP ports\n";
print " -------------------------------------------------------------------------\n\n";
printf " %17s %6s\n\n", "Address", "Port";

for($a = 0; $a < scalar(@UDPLAddr); $a++) {
printf " %17s:%6s\n", $UDPLAddr[$a], $UDPLPort[$a];
}

#
# Mountpoints
#

if ($linux == 1){
my @StorDescr = GetTable($mibStorDescr);

print "\n\n Mountpoints\n";
print " -------------------------------------------------------------------------\n\n";

for ($a = 0; $a < $#StorDescr; $a++){
print " $StorDescr[$a]\n" if (grep(/\//,$StorDescr[$a]));
}
}

#
# Software components
#

if ($windows == 1){
my @Installed = GetTable($mibInstalled);
my @InstDate = GetTable($mibInstDate);

print "\n\n Software components\n";
print " -------------------------------------------------------------------------\n\n";

for($a = 0; $a < scalar(@Installed); $a++) {
print "\t$Installed[$a]\n";
}
}

if ($linux == 1){
my @Installed = GetTable($mibInstalled);
my @InstDate = GetTable($mibInstDate);

print "\n\n Software components\n";
print " -------------------------------------------------------------------------\n\n";

my @soft;
for($a = 0; $a < scalar(@Installed); $a++) {
#print "\t$Installed[$a]\n";
push @soft, $Installed[$a];
}
@soft = sort @soft;
foreach (@soft){ print "\t$_\n";}

}

#
# Shares
#

if ($windows == 1){
&GetShares;
}

$session->close;
}

sub GetRequest{
my $response = "";

if (!($response = $session->get_request($_[0]))){
return "No Reponse";
} else {
my $Return = $response->{$_[0]};
return $Return;
}
}

sub GetTable{

my @Return;
my $response = "";

if (!($response = $session->get_table($_[0]))){
return " No Response";
}

my $x = 0;
my $key;

foreach $key (sort keys %$response){
if ($$response{$key} ne " Virtual Memory"){
$Return[$x] = $$response{$key};
$x++;
}
}

return @Return;
}

sub GetShares{
my @ShareName = GetTable($mibShareName);
my @SharePath = GetTable($mibSharePath);
my @ShareComm = GetTable($mibShareComm);

print "\n\n Non-administrative shares\n";
print " -------------------------------------------------------------------------\n\n";

for ($a = 0; $a < scalar(@ShareName); $a++){
print " Share Name : $ShareName[$a]\n";
print "\tPath : $SharePath[$a]\n";
print "\tComments : $ShareComm[$a]\n\n";
}
}
Login or Register to add favorites

File Archive:

May 2020

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    May 1st
    14 Files
  • 2
    May 2nd
    3 Files
  • 3
    May 3rd
    1 Files
  • 4
    May 4th
    18 Files
  • 5
    May 5th
    15 Files
  • 6
    May 6th
    21 Files
  • 7
    May 7th
    15 Files
  • 8
    May 8th
    19 Files
  • 9
    May 9th
    1 Files
  • 10
    May 10th
    2 Files
  • 11
    May 11th
    18 Files
  • 12
    May 12th
    39 Files
  • 13
    May 13th
    15 Files
  • 14
    May 14th
    17 Files
  • 15
    May 15th
    17 Files
  • 16
    May 16th
    2 Files
  • 17
    May 17th
    2 Files
  • 18
    May 18th
    15 Files
  • 19
    May 19th
    21 Files
  • 20
    May 20th
    15 Files
  • 21
    May 21st
    15 Files
  • 22
    May 22nd
    6 Files
  • 23
    May 23rd
    1 Files
  • 24
    May 24th
    1 Files
  • 25
    May 25th
    2 Files
  • 26
    May 26th
    23 Files
  • 27
    May 27th
    13 Files
  • 28
    May 28th
    18 Files
  • 29
    May 29th
    17 Files
  • 30
    May 30th
    0 Files
  • 31
    May 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2020 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close