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

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

В файл testScript.vbs (файл VBScript) добавляем код:



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 и добавьте к нему строки:

1
2
cscript /nologo testScript.vbs
pause

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