按键精灵8读取网卡MAC物理地址

//读取网卡MAC物理地址(C8:0A:A9:5D:E8:83)
Function GetMAC()
	Dim mc,mo
	Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
	For Each mo in mc
		If mo.IPEnabled=True Then
			GetMAC=mo.MacAddress
			Exit For
		End If
	Next
End Function