<job>
<script language="vbscript">

StrIPAddress = "xxx.xxx.xxx.xxx"

Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmiService = wmiLocator.ConnectServer(, "root\snmp\localhost")
Set wmiContext = CreateObject("WbemScripting.SWbemNamedValueSet")
Set strName = wmiContext.Add("AgentAddress", StrIPAddress)
Set strName = wmiContext.Add("AgentReadCommunityName", "public")
Set SelectObjects = wmiService.ExecQuery ("Select ifAdminStatus, ifDescr, ifSpeed, ifOperStatus from SNMP_RFC1213_MIB_ifTable", , , wmiContext)
For Each SelDataObject In SelectObjects
        For Each SelData in SelDataObject.Properties_
      If Not IsNull( SelData.Name ) Then
         WScript.Echo SelData.Name & " : " & SelData.Value
      End If
   Next
   wscript.echo "******************"
Next

</script>
</job>

use BER;
use SNMP_util;
use DBI;
use POSIX qw(strftime);
use strict;
++$|;

my $host = "1.1.1.1";
my $community = "private";
my $router = "$community\@$host";

my $dbhost = "localhost";
my $dbuser = "root";
my $dbpass = "root";
my $dbname = "traf";


my $dbh = DBI->connect("dbi:mysql:$dbname", $dbuser, $dbpass) or die $DBI::errstr;

# необходимые OID-ы
&snmpmapOID("actLostByts", "1.3.6.1.4.1.9.2.4.6", "actCheckPoint", "1.3.6.1.4.1.9.2.4.11", "ckactByts", "1.3.6.1.4.1.9.2.4.9.1.4");
# actLostByts   - Total bytes of lost IP packets.
# actCheckPoint - Check points the accounting database.
# ckactByts     - Total number of bytes in IP packets from source to destination in checkpoint matrix.
#                 A zero value indicates that no access list was violated.

# забор статистики
my ($checkpoint) = snmpget($router, 'actCheckPoint.0');
snmpset ($router,'actCheckPoint.0','integer',$checkpoint);
my (@data)       = snmpwalk($router, 'ckactByts');
my $query        = "INSERT INTO traffic_tmp (src_ip,dst_ip,bytes) VALUES (INET_ATON(?),INET_ATON(?),?);";
my $sth          = $dbh->prepare($query) or die $DBI::errstr;
foreach (@data) {
    /(\d+\.\d+\.\d+\.\d+)\.(\d+\.\d+\.\d+\.\d+):(\d+)/;
    my ($source,$destination,$bytes) = ($1,$2,$3);
    $sth->execute($source, $destination, $bytes) or die $DBI::errstr;
}