Question

好的......这里的每个人似乎都比我更了解这些东西。但是我已经连续两天在这里了，而且我从各个方向都去了。

目标：

让脚本检查本地PC的IP地址。在某个时间（思考5分钟）再次重新检查IP地址。比较两者，如果有变化，则静默执行命令。

我意识到我不能只获取IP地址，因为我将使用winmgmts获得整个状态，我很好。真的只是关注状态是否会发生变化。代码行是访问一个URL，它会更新我的FreeDNS，以便更改IP。无论出于何种原因，所提供的课程都没有奏效。有人甚至崩溃了.Net Framework。

知道我是一个彻头彻尾的菜鸟（并感谢你阅读这篇文章！）这就是我疯狂破碎和完全奇怪的代码。任何帮助都是神圣的，我道歉

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

检查NetworkAdapter配置的vbScript，如果检测到更改，则更新URL

0 个答案: