Used script below but not working when I lost the internet written by rextended http://forum.mikrotik.com/t/check-locked-pppoe-pptp-l2tp-sstp-ovpn-ppp-connections/75396/1
/system scheduler
add disabled=no interval=20m name=check-ppp-client on-event=":log info message=\"*** start check any ppp client connection ***\";\r\
\n:local pppTest value=[/ppp active find];\r\
\n:local pingNumber value=2;\r\
\n:local pingMin value=1;\r\
\n:foreach userTest in=\$pppTest do={\r\
\n :local pingOk value=[:ping [/ppp active get \$userTest value-name=address] count=\$pingNumber]\r\
\n :if ( \$pingOk < \$pingMin) do={\r\
\n :log warning message=([/ppp active get \$userTest value-name=service] . \" auto disconnected: \". \$pingOk . \" ping ok over \" . \$pingNumber . \" \" . [/ppp active get \$userTest value-name=name] . \" \" . [/ppp active get \$userTest value-\
name=address])\r\
\n /ppp active remove \$userTest\r\
\n }\r\
\n};\r\
\n:log info message=\"*** end check any ppp client connection ***\";\r\
\n" policy=ftp,read,write,test start-date=jan/01/2002 start-time=00:20:00