Иногда случаются ситуации, когда нужно проверить подключения к vpn. Ниже приведен код для определения подключены ли вы к vpn, или нет.
Создаем два файла:

  • testScript.vbs (файл VBScript)
  • testBatch.bat (командный файл для вызова вышеуказанного файла VBScript)

Создайте testScript.vbs (файл VBScript) и добавьте в него код ниже.

Wscript.Echo IsVPNConnected()
Function IsVPNConnected()   
   IsVPNConnected = False
   sComputer = "." 
   Set oWMIService = GetObject("winmgmts:\\" _
    & sComputer & "\root\CIMV2")     
   Set colItems = oWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) 
   For Each objItem in colItems 

   'Пожалуйста, проверьте описание своего VPN-соединения, выполнив команду 
   '«ipconfig /all» в командной строке.

    If(InStr(LCase(objItem.Description),"vpn")) Then
     IsVPNConnected = objItem.IPEnabled     
    End If
   Next
   If(IsVPNConnected) Then
    IsVPNConnected =  "I am Connected to VPN."
   Else
    IsVPNConnected = "I am Not Connected to VPN."
   End If
End Function

Создайте файл testBatch.bat с помощью Блокнота и добавьте к нему строки ниже.

cscript /nologo testScript.vbs
pause

Запустите файл testBatch.bat, чтобы узнать, подключены ли вы к VPN.