Получить IP-адрес сервера PPP VPN в Windows, используя VBScript или CMD

Question

Можно ли использовать VBScript или командную строку для получения IP-адреса сервера PPP VPN под Windows?

Обратите внимание, что это не IP-адрес VPN-сервера.

Answer 1

Вы можете использовать VBScript для получения информации от WMI. Здесь много сетевых скриптов.
Например, используйте следующий скрипт для получения IP-адреса данного сетевого адаптера. Просто не забудьте указать имя вашего VPN вместо строки "Local Area Connection 2":

strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapter " _
        & "Where NetConnectionID = " & _
        "'Local Area Connection 2'")

For Each objItem in colItems
    strMACAddress = objItem.MACAddress
Next

Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration")

For Each objItem in colItems
    If objItem.MACAddress = strMACAddress Then
        For Each strIPAddress in objItem.IPAddress
            Wscript.Echo "IP Address: " &  strIPAddress
        Next
    End If
Next