Get server IP of PPP VPN in Windows using VBScript or CMD

问题

Is it possible to use VBScript or commandline to grab the server IP of a PPP VPN under Windows?

Note this is not VPN dialup server IP.

回答1:

You can use VBScript to get the information from WMI. There are plenty of networking scripts here.
For example, use the following script to get the IP of a given net adapter. Just be sure to provide your VPN's name instead of the "Local Area Connection 2" string:

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

来源：https://stackoverflow.com/questions/1699456/get-server-ip-of-ppp-vpn-in-windows-using-vbscript-or-cmd