读取网卡地址//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
// [读取网卡MAC物理地址] //
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
VBS Dim mc,mo,Mac,stt
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
VBS Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfi...
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
// [读取网卡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
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
//【脚本作者】一只鱼 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn 【致谢】欢迎使用鱼鱼制作的脚本!!
//【创作日期】2007.04.05 【完成日期】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
本文档为【读取网卡地址】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。