请教VB 获取本机MAC地址的问题

在原来的帖子查过这个问题 有解决办法 但是我在VB里测试总是通过不了 请大家帮看看

Private Function MACAddress() As String
  Set objs = GetObject("winmgmts:").ExecQuery( _
  "SELECT MACAddress " & _
  "FROM Win32_NetworkAdapter " & _
  "WHERE " & _
  "((MACAddress Is Not NULL) " & _
  "AND (Manufacturer <> " & _
  "‘Microsoft‘))")
  For Each obj In objs
  MACAddress = obj.MACAddress
  Exit For
  Next obj
End Function

这行调试产生错误
For Each obj In objs

 -2147217385（80041017） 自动化错误
VB已经选了 WMI的引用

取得本机所有网卡(网络连接)的MAC地址(VB6.0代码)