VPNGATE.NET CHECK

@ECHO OFF

:LISTING
DIR /A-D-S-H /B ".\vpngate.net\out" > OVPNOUT.LST
FOR /F %%F IN ('DIR /A-D-S-H /B ".\vpngate.net\out" ^| FIND /C ".ovpn"') DO SET /A VPNOUTCN=%%F
SET /A VPNOUTOF=(%RANDOM%*%VPNOUTCN%/32768)+1
FOR /F "DELIMS= skip=%VPNOUTOF%" %%F in (OVPNOUT.LST) DO (
 SET OVPNOUTNAME=%%F
 GOTO ROOTNAME
 )
:ROOTNAME
FOR /F "tokens=2 skip=61 delims= " %%F in (.\vpngate.net\out\%OVPNOUTNAME%) DO (
 SET IPOUTPING=%%F
 GOTO DOECH
 )
:DOECH
FOR /F %%F in ('ping -n 1 %IPOUTPING% ^| find /c "Lost = 0"') DO SET /A CNTOUT=%%F
IF %CNTOUT% EQU 1 move ".\vpngate.net\out\%OVPNOUTNAME%" ".\vpngate.net\"
ECHO %OVPNOUTNAME% [%VPNOUTOF%] : %IPOUTPING% = %CNTOUT%
GOTO LISTING