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

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
//　　　　　　　　　　　　[读取网卡MAC物理地址] 　　　　　　　　　　　　　//  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS Dim mc,mo,Mac.stt  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")  
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//  
VBS stt=stt & vbcrlf & "For Each mo in mc"  
VBS stt=stt & vbcrlf & "If mo.IPEnabled=true Then"  
VBS stt=stt & vbcrlf & "Mac= mo.MacAddress"  
VBS stt=stt & vbcrlf & "Exit For"  
VBS stt=stt & vbcrlf & "End if"  
VBS stt=stt & vbcrlf & "Next"  
VBS Execute(stt)  
VBSCall call messagebox("网卡MAC地址是: " & Mac)  
EndScript