程序段：
Private Sub cmdGetMAC_Click()
Dim strmac As String
Dim objwmiservice As Object
Dim colitems As Object
Dim objitem As Object

Set objwmiservice = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & "." & "/root/cimv2")

Set colitems = objwmiservice.execquery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objitem In colitems
     strmac = objitem.macaddress
     lstMAC.AddItem Replace(Trim(strmac), ":", "-")
Next
End Sub

把你那句代码
Set objwmiservice = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & "." & "/root/cimv2")
里的所有"/"换成"\"应该就可以了。

换完了还是不行

已经给你答案了。见你的另外一个帖子。