1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //　　　　　　　　　　　　[读取网卡MAC物理地址] 　　　　　　　　　　　　　//
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. （VBScript语句） Dim mc,mo,Mac.stt
5. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
6. （VBScript语句） Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
7. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
8. （VBScript语句） stt=stt & vbcrlf & "For Each mo in mc"
9. （VBScript语句） stt=stt & vbcrlf & "If mo.IPEnabled=true Then"
10. （VBScript语句） stt=stt & vbcrlf & "Mac= mo.MacAddress"
11. （VBScript语句） stt=stt & vbcrlf & "Exit For"
12. （VBScript语句） stt=stt & vbcrlf & "End if"
13. （VBScript语句） stt=stt & vbcrlf & "Next"
14. （VBScript语句） Execute(stt)
15. 调用外部VBScript子程序 call messagebox("网卡MAC地址是: " & Mac)
16. 脚本停止运行
17. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
18. //【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
19. //【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
20. //【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
21. //【创作日期】2007.04.05　　　　　　　【完成日期】
22. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//