使用 VBScript 或 CMD 在 Windows 中獲取 PPP VPN 的服務器 IP

Question

Windows下是否可以使用VBScript或命令行來獲取PPP VPN的服務器IP？

請注意，這不是 VPN 撥號服務器 IP。

Answer 1

您可以使用 VBScript 從 WMI 獲取信息。 有大量的網絡腳本的位置。
例如，使用以下腳本獲取給定網絡適配器的 IP。 請務必提供您的 VPN 名稱而不是“本地連接 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