Скрипт проверки и переподключения ppp соединения

[Raven]

Что-то примерно такое получается (писалось для FreeBSD)

Код: Выделить всё

#!/usr/bin/perl
chomp($isi=`/sbin/ping -c 3 "IP адрес (я ставил ДНС прова)"|grep "64 bytes"|wc -l`);
if (not($isi>0)) {
system("date");
printf("Restart Inet\n");
system("/usr/bin/killall ppp");
sleep(5);
system('/usr/sbin/ppp -ddial inet");

[Quiss]

а теперь тоже самое только под Win7

буду через вап комп вырубать