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

alabos

最近电信的线路总是受到攻击，一旦出现问题就得切换到联通的线路上去。这样的情况优势甚至出现在晚上下班以后，弄得人疲惫不堪。两条宽带线路接入的机房在另一部门的机房里，那儿有专人值班，所以一般物理上的切换只要打电话拜托几位兄弟就行了。但是服务器机房只有我在看管，所以其上的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 close();
    sleep 60;
}
其中interface文件是用‘netsh -c interface ip dump > c:/interface’命令导出的网卡信息，稍作修改即可使用。

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/6088/showart_727960.html