检查NetworkAdapter配置并在检测到更改时更新URL的vbScript

好的。。。这里的每个人似乎都比我更了解这方面的知识。但我已经连续两天这么做了，我从各个方面都做了

目标：

让脚本检查本地pc的IP地址。在某个时间（考虑5分钟）再次检查IP地址。比较两者，如果有更改，则以静默方式执行命令

我意识到我不能只获取IP地址，因为我将使用winmgmts获取整个州，对此我没有意见。实际上，这只是为了观察状态是否会发生总体变化。代码行是访问一个URL，该URL将在IP更改时更新我的FreeDNS。无论出于何种原因，所提供的项目都没有一个奏效。其中一个甚至使.Net框架崩溃

知道我是一个彻头彻尾的傻瓜（谢谢你读到这么远！）下面是我疯狂的破烂和完全奇怪的代码的样子。任何帮助都是神圣的，我道歉

Dim firstSet, secondSet

Set objWMIService = GetObject("winmgmts:")
Set FirstIP = objWMIService.ExecQuery("SELECT * FROM " &    "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set firstSet = FirstIP

WScript.Sleep 3

Set objWMIService = GetObject("winmgmts:")
Set SecondIP = objWMIService.ExecQuery("SELECT * FROM " & "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set secondSet = SecondIP

results = StrComp(firstSet, secondSet, 1)

If Not results = True Then
    updateURL = "MyURL"
    Set req = CreateObject("MSXML2.XMLHTTP.6.0")
    req.Open "GET", updateURL, False
    req.Send
End If

---

我想您想检查其中一个网络接口的IP地址？Localhost通常被认为是127.0.0.1是的，检查一个网络接口的ip地址，但无法确认检查一个接口是否可行，因此愿意采取任何可行的措施。我不使用windows，但我认为获取ip地址的简单方法是捕获

ipconfig

的输出。我想这应该是可能的，从VB。似乎合理，但我缺乏知识，只是如何做到这一点。我在大学里上了一堂vb脚本的课，那是在2007年！！好吧，我从来没有用VB编程过，但是google让我看一下这篇文章：如果你也检查一下StandardOutput的链接，你就会发现如何捕获命令的输出。从这里开始，您只需查看字符串。我想您要检查其中一个网络接口的IP地址吗？Localhost通常被认为是127.0.0.1是的，检查一个网络接口的ip地址，但无法确认检查一个接口是否可行，因此愿意采取任何可行的措施。我不使用windows，但我认为获取ip地址的简单方法是捕获

ipconfig

的输出。我想这应该是可能的，从VB。似乎合理，但我缺乏知识，只是如何做到这一点。我在大学里上了一堂vb脚本的课，那是在2007年！！好吧，我从来没有用VB编程过，但是google让我看一下这篇文章：如果你也检查一下StandardOutput的链接，你就会发现如何捕获命令的输出。从这里开始，您只需查看字符串。我想您要检查其中一个网络接口的IP地址吗？Localhost通常被认为是127.0.0.1是的，检查一个网络接口的ip地址，但无法确认检查一个接口是否可行，因此愿意采取任何可行的措施。我不使用windows，但我认为获取ip地址的简单方法是捕获

ipconfig

的输出。我想这应该是可能的，从VB。似乎合理，但我缺乏知识，只是如何做到这一点。我在大学里上了一堂vb脚本的课，那是在2007年！！好吧，我从来没有用VB编程过，但是google让我看一下这篇文章：如果你也检查一下StandardOutput的链接，你就会发现如何捕获命令的输出。从那以后，你只要看看绳子就行了。