windows - VBScript または CMD を使用して Windows で PPP VPN のサーバー IP を取得する

Question

VBScript またはコマンドラインを使用して、Windows で PPP VPN のサーバー IP を取得することはできますか?

これは VPN ダイヤルアップ サーバーの IP ではないことに注意してください。

Answer 1

VBScript を使用して、WMI から情報を取得できます。ここにはたくさんのネットワーク スクリプトがあります。
たとえば、次のスクリプトを使用して、特定のネット アダプターの IP を取得します。「ローカル エリア接続 2」文字列の代わりに、必ず VPN の名前を指定してください。

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