当前位置：文江博客话题详情

在Windows中使用VBScript或CMD获取PPP VPN的服务器IP

发布于 2024-08-10 10:57:55 字数 145 浏览 9 评论 0原文

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

alt text

注意这不是 VPN 拨号服务器 IP。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

后来的我们 2024-08-17 10:57:55

您可以使用 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

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

回复收藏 0 原文

~没有更多了~