UFT中如何通过VBA获取IP地址

我正试图在WIN10中通过下面的代码获取Ipaddress

由于出现以下错误，我无法迭代For循环

一般运行错误

第（4）行：“对于IPConfigSet中的每个IPConfig”

设置IPConfigSet=GetObject（“winmgmts:{impersonationLevel=impersonate}”）.ExecQuery_
（“从Win32_NetworkAdapter配置中选择IPAddress，其中IPEnabled=TRUE”）
对于IPConfigSet中的每个IPConfig
如果不是IsNull（IPConfig.IPAddress），则
对于i=LBound（IPConfig.IPAddress）到UBound（IPConfig.IPAddress）
Debug.Print IPConfig.IPAddress（i）
下一个
如果结束
下一个

---

调试.Print的方法

不是VBScript。很可能是VBA或VB.Net。您的代码在VBA中工作得非常好。更好地解释您的环境是什么。是的，可以用msgbox替换。。我想知道为什么它在“for each loop”中失败，有没有更好的方法可以通过vbscript获得IP？如果是vbscript，那么调整您的问题。这个问题只描述标题和标签中的VBA，这是错误和误导性的。