for /f "skip=1 delims=" %%a in ('rasdial') do (
         ipconfig|findstr/i "%%a">nul&&(
echo VPN已连上！
pause
exit
        )
        goto :next
)
:next
echo VPN没连上！
pause
exit
复制代码

@echo off
SetLocal EnableDelayedExpansion
set "filename=C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
for /f "tokens=1 delims=:" %%a in ('type "%filename%" ^| findstr /I /N "type=2"') do set /a num=%%a+77
for /f "tokens=2 delims==" %%a in ('more +%num%^<"%filename%" ^| findstr "\<PhoneNumber\>"') do set xz=%%a
echo %xz%
pause
exit
复制代码