VBS命令教学之《获取电脑本机MAC地址》 _ 官方脚本制作教程 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：76.8M更新时间：2-21
软件版本：3.2.5软件大小：62.5M更新时间：06-06
软件版本：1.2.6软件大小：29.2M更新时间：05-25
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 6032|回复: 28
兄弟工程师05
鹰眼勋章鹰眼注册用户专属勋章学有所成学有所成勋章，新手步入按键学堂的第一枚勋章黄金之翼黄金之翼勋章潜水员按键潜水员勋章天使勋章天使一样的用户按键元老资深按键用户的尊贵荣誉勋章教程达人教程达人管理人员按键论坛的管理团队专属勋章按键精灵开发者6级可通过提升认证等级来升级勋章：
str = GetMAC()
MessageBox str
Function GetMAC()
GetMAC = ""
Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled = True Then
'TracePrint "本机网卡MAC地址是: " & mo.MacAddress
GetMAC = mo.MacAddress
Set mc = nothing
End Function
黄瓜勋章（永久）体验商业小精灵活动的奖励按键精灵开发者3级可通过提升认证等级来升级勋章：
Dim mac_adss, mac_16
Dim i, mac_len
Dim oAdapters, oAdapter
Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oAdapter In oAdapters
mac_adss = Replace(oAdapter.MACAddress, ":", "") '得到MAC地址
mac=mac_adss
复制代码找到其他的获取MAC方法，是这样，但是获取到是虚拟机的MAC，副管的这个能获取到真实的MAC
黄瓜勋章（永久）体验商业小精灵活动的奖励创业榜样（30天）参加暑期创业征文活动，成为创业榜样！按键精灵开发者4级可通过提升认证等级来升级勋章：
谢谢分享，楼主辛苦了！我不知道回帖对回贴人有多大损失，但是最起码对发帖人的一种付出辛苦的尊敬与理解，发发帖子不容易，请叫发帖人保持一种高昂的激情吧！用力顶贴！
按键精灵开发者1级可通过提升认证等级来升级勋章：
看贴回贴是种美德！
按键精灵开发者6级可通过提升认证等级来升级勋章：元旦勋章（30天）按键精灵元旦活动纪念勋章
Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled = True Then
能不能说说上面三句的含意啊？
庆双蛋打火鸡赢iPhone6s、千元现金红包、红米note3，心动不如行动！快来围观：/showtopic-.aspx
黄瓜勋章（永久）体验商业小精灵活动的奖励双蛋勋章（30天）双蛋活动勋章(30天)马年勋章（360天） 马年纪念勋章（360天）双十一绝版纪念勋章双十一绝版纪念勋章按键精灵开发者4级可通过提升认证等级来升级勋章：
知其然，不知其所以然啊，副管，可不可以加一些注释啊？
淡定还是蛋疼，这是个问题~~~
按键精灵开发者2级可通过提升认证等级来升级勋章：
来看看，学习了。
&&QQ群& &EZ工作室承接各类脚本定制
℡繽紛sē綵
黄瓜勋章（永久）体验商业小精灵活动的奖励
谢谢楼主学习了
zhuchuanggui
按键精灵开发者4级可通过提升认证等级来升级勋章：按键图书勋章尊贵的按键图书用户
非常好的一个功能,谢谢作者的分享
如果我的回答对您有帮助,请点击下面评分送花吧!!
黄瓜勋章（永久）体验商业小精灵活动的奖励发帖高手鼓励积极回复，但注意不要灌水哦学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键精灵开发者6级可通过提升认证等级来升级勋章：
很好，我收藏了
按键精灵开发者4级可通过提升认证等级来升级勋章：
你懂珍惜？_．゛
认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励学有所成学有所成勋章，新手步入按键学堂的第一枚勋章创业榜样（30天）参加暑期创业征文活动，成为创业榜样！按键精灵开发者4级可通过提升认证等级来升级勋章：
这个一定要看看
EZ脚本学院-高级VIP学员282-伊泽
你懂珍惜？_．゛
认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励学有所成学有所成勋章，新手步入按键学堂的第一枚勋章创业榜样（30天）参加暑期创业征文活动，成为创业榜样！按键精灵开发者4级可通过提升认证等级来升级勋章：
这个一定要围观
EZ脚本学院-高级VIP学员282-伊泽
只能说，我小白了，看不懂意思
shenqian12
按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章爱心大使积极帮助新手（可向管理员进行申请）骨灰级按键用户3年以上的按键论坛用户活动狂人论坛活动狂人按键图书勋章尊贵的按键图书用户黄瓜勋章（永久）体验商业小精灵活动的奖励鹰眼勋章鹰眼注册用户专属勋章马年勋章（360天） 马年纪念勋章（360天）幸运草勋章（永久）商业小精灵限时活动勋章。微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 单身汪勋章单身贵族的专属勋章
这个太酷了，喜欢，省着用cmd找了
黄瓜勋章（永久）体验商业小精灵活动的奖励双蛋勋章（30天）双蛋活动勋章(30天)
知其不燃，之所以不燃不知其然。。。不然知其所以然，所以不知其所以燃。。然不燃。。不然燃。。燃呀燃、燃呀燃
yechan1796
按键精灵开发者1级可通过提升认证等级来升级勋章：
笔记本用无线网络连接时,用上述代码运行只能获得无线网卡的MAC物理地址,获取不到本地连接的MAC物理地址.请问,有无一种方法可以同时获得本地连接和无线连接的MAC物理地址?请大神指点,谢谢!
按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。学有所成学有所成勋章，新手步入按键学堂的第一枚勋章爱心大使积极帮助新手（可向管理员进行申请）论坛GG按键论坛男性用户勋章论坛MM按键论坛女性用户勋章活动狂人论坛活动狂人举报达人长期举报不良帖子黄金之翼黄金之翼勋章按键明星按键明星勋章潜水员按键潜水员勋章天使勋章天使一样的用户按键图书勋章尊贵的按键图书用户黄瓜勋章（永久）体验商业小精灵活动的奖励鹰眼勋章鹰眼注册用户专属勋章幸运草勋章（永久）商业小精灵限时活动勋章。月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励兔年勋章（360天）兔年纪念勋章(360天)十周年勋章（360天）十周年纪念勋章龙年勋章（360天）龙年纪念勋章（360天）马年勋章（360天） 马年纪念勋章（360天）按键学院按键学院专属勋章，按键学院学员或文章被院刊收入可领取
看帖回复是一种美德，感谢05
黄瓜勋章（永久）体验商业小精灵活动的奖励按键精灵开发者2级可通过提升认证等级来升级勋章：马年勋章（360天） 马年纪念勋章（360天）
mimzygo 发表于
18:55 找到其他的获取MAC方法，是这样，但是获取到是虚拟机的MAC，副管的这个能获取到真实的MAC不错
对以后有用处VBS绑定MAC地址
作者：佚名
字体：[ ] 来源：互联网 时间：07-22 17:34:52
　　dim objshell
　　Set objShell = CreateObject("Wscript.Shell")
　　objshell.run("arp -d"),0
　　objShell.Run("arp -s 192.168.0.1 00-0e-a0-00-67-9f"),0
　　将上面代码保存为VBS可以用了。可以防止ARP攻击。
　　dim objshell 　　Set objShell = CreateObject(&Wscript.Shell&) 　　objshell.run(&arp -d&),0 　　objShell.Run(&arp -s 192.168.0.1 00-0e-a0-00-67-9f&),0 　　将上面代码保存为VBS可以用了。可以防止ARP攻击。
大家感兴趣的内容
12345678910
最近更新的内容正文 js获取ie客户端ip与mac地址
js获取ie客户端ip与mac地址
发布时间： & 编辑：
用js获取客户端ip与mac地址，js取客户端ip的实例代码，有需要的朋友参考下。
&html&&head&
&title&wmi客户端.cn&/title&
&meta http-equiv=content-type content=&text/ charset=gb2312&&
&script language=jscript event=&oncompleted(hresult,
perrorobject,pasynccontext)& for=foo&
&document.forms[0].txtmacaddr.value=unescape(macaddr);
&document.forms[0].txtipaddr.value=unescape(ipaddr);
&document.forms[0].txtdnsname.value=unescape(sdnsname);
&//document.formbar.submit();
& &/script&
&script language=jscript event=onobjectready(objobject,objasynccontext) for=foo&
&& if(objobject.ipenabled != null && objobject.ipenabled != &undefined& && objobject.ipenabled == true)
&&& if(objobject.macaddress != null && objobject.macaddress != &undefined&)
&&& macaddr = objobject.
&&& if(objobject.ipenabled && objobject.ipaddress(0) != null && objobject.ipaddress(0) != &undefined&)
&&& ipaddr = objobject.ipaddress(0);
&&& if(objobject.dnshostname != null && objobject.dnshostname != &undefined&)
&&& sdnsname = objobject.
& &/script&
&meta content=&mshtml 6.00.& name=generator&&/head&
&object id=locator classid=clsid:76a64158-cb41-11d1-8b02-b6 viewastext&&/object&
&object id=foo classid=clsid:75718c9a-f029-11d1-a1ac-00c04fb6c223&&/object&
&script language=jscript&
&& var service = locator.connectserver();
&& service.security_.impersonationlevel=3;
&& service.instancesofasync(foo, 'win32_networkadapterconfiguration');
&& &/script&
&form id=formfoo name=formbar action=nicpost.asp method=post&&input value=00:05:5d:0e:c7:fa name=txtmacaddr& &input value=192.168.0.2 name=txtipaddr& &input value=typ name=txtdnsname& &/form&&/body&&/html&
关键是用到两个activex：
&object id=locator classid=clsid:76a64158-cb41-11d1-8b02-b6 viewastext&&/object&
&object id=foo classid=clsid:75718c9a-f029-11d1-a1ac-00c04fb6c223&&/object&
不过这两个activex都是系统自带，不用去下载或注册。
然后就是用脚本和activex交互，脚本可以是js或vbs。
js获取客户端ip实例解析
Js获取客户端IP地址与MAC地址
JS获取客户端IP地址与机器名示例您可能感兴趣的文章：SystemInfo VBS 获取系统安装日期、硬盘序列号、网卡MAC地址、U 并输出 结果 Other windows programs 其他小程序 238万源代码下载-
&文件名称: SystemInfo
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 2 KB
&&上传时间:
&&下载次数: 13
&&提 供 者:
&详细说明：VBS 获取系统安装日期、硬盘序列号、网卡MAC地址、U盘序列号并输出测试结果-VBS acquisition system installation date, hard drive serial number, MAC address, U disk serial number and output test results
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&SystemInfo.vbs
&近期下载过的用户:
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - U盘过滤驱动系统源代码主要是用DDK来实现的
&[] - 检测当前系统中U盘的物理序列号、盘符以及卷标等
&[] - 模拟大炮打飞机。在GUI界面上，飞机水平飞行，用界面上的按钮控制大炮的运行方向（如向左，向右，向上，向下）。当炮弹碰着飞机后，飞机坠落。