myweb9169

这是在我本机上测试通过的代码，参考下
StrComputer = "."
MyMac = "E0:0C:20:52:41:53"
set ObjMAC =GetObject("Winmgmts:\\" & StrComputer & "\Root\Cimv2")
Set ObjMacs = ObjMac.instancesof("Win32_NetworkAdapterConfiguration")
for each objmac in  ObjMacs
    If MyMac = Objmac.MACAddress Then
set s = WScript.CreateObject("WScript.Shell") '创建WScript.Shell对象
      s.Run "c:\1.txt"
      
end if
next