Arrays Visual FoxPro 9动态数组

我试图通过VisualFoxpro9从ActiveX组件中获取动态数组，但没有成功（已编辑和工作示例）

有人能解释一下这段代码的错误吗？

我不知道你的“nnetcom.oMain”ActiveX控件是什么，但是你可以通过

lcComputerName = "."
loWMIService = GETOBJECT("winmgmts:\\" + lcComputerName + "\root\cimv2")
loItems = loWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)

FOR EACH loItem IN loItems
    lcMACAddress = loItem.MACAddress
    IF !ISNULL(lcMACAddress)
        */ then, you can look at the object properties, such as 
        lcDescription = loItem.Description
        lcMacAddress = loItem.MACAddress
        lcNetConnectionID = NVL( loItem.NetConnectionID, "" )
   ENDIF
ENDFOR

For-Each循环遍历[Win32_NetworkAdapter]类结构的类实例。你几乎可以从这个列表中得到你想要的任何东西。

---

你好，德拉普，是的，我知道WMI，事实上我的ActiveX组件使用它。objAdapt.cName在数组中保存收集到的网络适配器名称。@beic，那么我想我会很好奇为什么在VFP也可以获取并直接处理数组的情况下使用ActiveX控件。是的，但我开发了一种框架组件……不管怎样，你在loItems中每个loItem的代码行上帮了我很多忙，现在它工作得很好…我对你的提议投了赞成票，并接受了你的回答！谢谢…；-）p、 我会在我的帖子中添加正确的例子！

lcComputerName = "."
loWMIService = GETOBJECT("winmgmts:\\" + lcComputerName + "\root\cimv2")
loItems = loWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)

FOR EACH loItem IN loItems
    lcMACAddress = loItem.MACAddress
    IF !ISNULL(lcMACAddress)
        */ then, you can look at the object properties, such as 
        lcDescription = loItem.Description
        lcMacAddress = loItem.MACAddress
        lcNetConnectionID = NVL( loItem.NetConnectionID, "" )
   ENDIF
ENDFOR