监测网络并切换ip地址的脚本

 

最近电信的线路总是受到攻击，一旦出现问题就得切换到联通的线路上去。这样的情况优势甚至出现在晚上下班以后，弄得人疲惫不堪。两条宽带线路接入的机房在另一部门的机房里，那儿有专人值班，所以一般物理上的切换只要打电话拜托几位兄弟就行了。但是服务器机房只有我在看管，所以其上的ip地址切换就不得不亲自前往，甚是麻烦。所以写了一个监测的脚本，每一分钟ping网管一次，如果遇到不通则将ip地址换为联通的。
use Net::Ping;
$count = 0;
$timer = 1;
print "start monitoring...\n";
while(1){
    $p = Net::Ping->new();
    if( not $p->ping('*.*.*.*', 3) ){
        if ($count == 3){
            $count = 0;
            system 'netsh -f c:/interface';
            open FH, '>>c:/transfer_log.txt';
            @current = localtime();
            $index = 0;
            while($index < 6){ $log = $log."\t".shift(@current); }
            print FH $log."\n";
            close FH;
            last;
        }else{
            print 'failed: '.$count."\n";
            $count++;
            sleep 15;
            next;
        }
    }
    print 'success: '.$timer."\n";
    $timer++;
    $p->close();
    sleep 60;
}
其中interface文件是用‘netsh -c interface ip dump > c:/interface’命令导出的网卡信息，稍作修改即可使用。