SNMP编程

开发平台：

C/C++

update.pl：源码内容

							#!/bin/perl
#
#
my ($filelist,$file,$result);
my @f_list;
# Change the path to the folder where you store the mrtg .cfg files
$deleted=`del /F /Q c:\mrtg\conf\*_l`;  # this is to remove the _l files before running Mrtg
$filelist=`dir /B c:\mrtg\conf\*.cfg`; # Get the list of the cfg files
@f_list=split(/n/,$filelist);
foreach $file (@f_list){
    if($file||($file ne "File not Found")||($file=~/.cfg$/)){
	$result=`perl.exe e:\mrtg\bin\mrtg e:\mrtg\conf\$file`; # Run Mrtg for each host with a cfg file.
    }
}

						