computer:2:know

perl script - get snmp uptime and sysname

 #!/usr/bin/perl



my $wg = '192.168.1.1';

my $community = 'public';



my $date = `date`;

chomp($date);



my $OID_sysUpTime = '1.3.6.1.2.1.1.3.0';

my $OID_sysName   = '1.3.6.1.2.1.1.5.0';



open(IN,"snmpget -v 2c -c $community $wg $OID_sysUpTime |");

while(<IN>){ if ($_ =~ /= (.*)$/){ print "$date $1\n"; } }

close(IN);



open(IN,"snmpget -v 2c -c $community $wg $OID_sysName |");

while(<IN>){ if ($_ =~ /= (.*)$/){ print "$date $1\n"; } }

close(IN);

Computer and IT knowledge - things to know

perl script - get snmp uptime and sysname