Sub auto_open()ipmac = UCase("001FD05630DE") '设定一个 预先设置的MAC地址.MAC你就当做是一个电脑的标识.Dim wkSet wk = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")For Each ma In wk
If ma.IPEnabled = True Then
'MsgBox "本机mac: " & ma.MacAddress
If ipmac = Replace(ma.MacAddress, ":", "") Then Exit Su...