@echo off
if "%1" == "h" goto begin 
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin
if not defined flag rasdial 连接名 adsl帐号 密码&set "flag=a"
for /f "tokens=7 delims== " %%a in ('ping www.baidu.com^|findstr /i lost') do set "str=%%a"
if %str% geq 2 (
   rasdial /disconnect>nul
   rasdial 连接名 adsl帐号 密码
)
goto begin
复制代码