clsmac.cls

来自「对于1000M网卡用api无法取回」· CLS 代码 · 共 38 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMac"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Public Function GetLocalMac() As String

   Dim objs
   
   On Error GoTo Errhandle
   
   Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter " & _
                                               "WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
   For Each obj In objs
       GetLocalMac = obj.MACAddress
       Exit For
   Next obj
   
   GetLocalMac = Replace(GetLocalMac, ":", "")
   
   GetLocalMac = IIf(GetLocalMac = "", "000000000000", GetLocalMac)
   
   Exit Function
Errhandle:

   GetLocalMac = GetMac
   
End Function