mac地址脚本
❶ 求一个bat脚本能够获取到本机所有网卡的mac地址
@echooff
for/f"skip=2tokens=1delims= "%%ain('getmac')dosetmac=%%~a
::如果输出的mac地址要以空格为分割符的内容，请把%mac%换成%mac:-=%
(echo%mac%)>d:mac.txt
pause
❷ 网页中什么脚本可以得知访问者mac地址全分奉上！！！！！！！！！！！！！！！！！！！！！！！！
基本是不可能的,路由器会过滤掉
网站的数据包经过多级交换和路由，MAC地址信息会丢失，但是在你直连的交换机上是可以查询到你的MAC地址的。不过商业网站绝对不会针对某一个用户的物理地址去做屏蔽的，一来是不能实现，而来那得是多大的工作量啊！一般就是封闭某一个IP地址段，这样你就可以使用代理服务器去访问这个网址。
C# codeusing System;using System.Runtime.InteropServices;namespace UtilityControl
{///<summary>/// 关于IP地址的若干操作///</summary>publicclass IP
{public IP()
{//// TODO: 在此处添加构造函数¡
如果是在服务器和客户端在同一局域网下,可以用arp 协议获取客户端mac
❸ 可以帮忙写个BAT获取MAC地址替换到license.dat文件里面吗，批量安装的软件，需要一个脚本
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI
/*&cls&echo off&mode con lines=5000
rem 将一个指定dat文件里指定特征字符串中部分内容替换成本机网卡mac地址
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "file=D:xxxlicense.dat"
if not exist "%file%" (echo;"%file%" 未找到&pause&exit)
for /f "tokens=2 delims==" %%a in ('wmic NIC where "NetEnabled=TRUE and PhysicalAdapter=True" get MACAddress /value^|find "="') do set "mac=%%a"
type "%file%"|cscript -nologo -e:jscript "%~f0" "%mac%"
echo;%#% +%$%%$%/%_% %z%
pause
exit
*/
var text=WSH.StdIn.ReadAll(),mac=WSH.Arguments(0).replace(/[:-]/g,'');
text=text.replace(/(HOSTID=)[0-9A-Z]+/ig,function(a,b){return b+mac;});
WSH.StdErr.WriteLine(text);
❹ 求ruby编写脚本，从一堆字符串中找出所有正确的mac地址，并打印。
可以用正则表达式。但至于打印，则不能直接地做到，要保存为一个文件，如1.txt，再用Win32API调用Shell32.dll中的ShellExecute
-----------------------------------------------
#保存为*.rb[API_Studier原创]
a="juoiu980010-3210-d903hyuy-w345-78u0-opeinhhu00f1-8971-3231sdfsf".split("-") #分割"-"
b=a[0][-4,4]+"-"+a[1]+"-"+a[2][0,4] #第一个mac地址
c=a[5][-4,4]+"-"+a[6]+"-"+a[7][0,4] #第二个mac地址
d=File.open("1.txt","w")
d.puts(b) #写入第一个mac地址
d.puts(c) #写入第二个mac地址
d.close
require'Win32API'
Win32API.new("shell32","ShellExecute","lppppl","l").call(0,"Print","1.txt","","",5) # 打印
#用完以后删除1.txt
❺ 求大神写一段VBS脚本，输出MAC地址字符串
先来个效果图， vb6 使用fso读取txt文件，用regex提取mac地址
以下是vb6代码，vbs代码在后面，把vb6的过程头尾去掉吧macstr变量改成vbs变体类型注释掉asstring
PrivateSubCommand1_Click()
'读文件到字符串
Dimfso,ts,s
ConstForReading=1
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile(App.Path&IIf(Right(App.Path,1)<>"","","")&"test.txt",ForReading)
s=ts.ReadAll
ts.Close
Setts=Nothing
Setfso=Nothing
'正则表达式匹配提取数据
DimregEx,Match,Matches'建立变量。
SetregEx=CreateObject("VBScript.RegExp")
regEx.Pattern="[0-9A-F]{2}(-[0-9A-F]{2}){5}"'正则表达式。
regEx.IgnoreCase=True'设置是否区分字符大小写。
regEx.Global=True'设置全局可用性。
SetMatches=regEx.Execute(s)'执行搜索。
DimmacstrAsString
ForEachMatchInMatches'遍历匹配集合。
macstr=Match.Value
'Printmacstr
Next
macstr=Replace(macstr,"-","")
MsgBoxmacstr,,"vbReadMac"
EndSub
改成vbs就是如下代码，txt路径在vbs相同路径下
'读文件到字符串
Dim fso, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("test.txt", ForReading)
s = ts.ReadAll
ts.Close
Set ts = Nothing
Set fso = Nothing
'正则表达式匹配提取数据
Dim regEx, Match, Matches ' 建立变量。
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "[0-9A-F]{2}(-[0-9A-F]{2}){5}" ' 正则表达式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(s) ' 执行搜索。
Dim macstr 'As String
For Each Match In Matches ' 遍历匹配集合。
macstr = Match.Value
'Print macstr
Next
macstr = Replace(macstr, "-", "")
MsgBox macstr, , "vbReadMac"
vbs代码实测OK
❻ BAT脚本一键修改将“电脑本地网卡MAC变成路由器MAC地址”。
输入devcon find pci\*
列出本地计算机上所有已知的PCI 设备,如下，这是本人的网卡一行
PCI\VEN_13F0&DEV_0201&SUBSYS_020113F0&REV_14\3&13C0B0C5&0&48: Sundance ST201 based PCI Fast Ethernet Adapter #3
记下第一个&和第二个&之间的设备代码，例如我的网卡就是：DEV_0201
以下是代码 使用前先按以上步骤获取到你的网卡DEV代码将以下代码中的DEV_0201替换为你的网卡代码再另存BAT即可
@echo off
echo ========================
echo === Change MAC Tools ===
echo ========================
echo 1.修改本机MAC地址
echo 2.恢复本机MAC地址
@choice /c:12 cheg,back
if errorlevel 2 goto back
if errorlevel 1 goto cheg
:cheg
echo 将新的MAC值写入注册表
start cheg.reg
pause
echo 正在禁用本机网卡
devcon disable *DEV_0201*
echo 正在启用本机网卡
echo 友情提示：此操作时间较长，请耐心等待，脚本执行完成后，本窗口会自动退出。
devcon enable *DEV_0201*
goto end
:back
echo 将新的MAC值写入注册表
start back.reg
pause
echo 将重启网卡，执行完成后，脚本会自动退出。
echo 正在禁用网卡
devcon disable *DEV_0201*
echo 正在启用网卡，启用时间稍长，请耐心等待……
devcon enable *DEV_0201*
goto end
以上为代码
❼ 用脚本如何修改win7的MAC地址
当hacker?，首先，你要知道，MAC地址是不可以修改的（出厂就刷在网卡里面），只有模仿或者说模拟。
❽ 求助，想写一个开机自动修改MAC地址的脚本
防止ARP攻击是比较困难的,修改协议也是不大可能。 但是有一些工作是可以提高本地网络的安全性。 首先，你要知道，如果一个错误的记录被插入ARP或者IP route表， 可以用两种方式来删除。 一是通过运行程序，快捷键ctrl+R 输入arp –d host_entry 二可以安装安装ARP防火墙 如今大部分安全辅助软件均内置ARP防火墙，着名的有：360安全卫士（内置）、金山贝壳ARP专杀、金山卫士 三如果已经中毒的话。由于中毒后网速会减慢，杀软失效。 所以我们应该用专门的专杀杀毒后安装杀毒软件保护系统 必须注意！！！ARP病毒大多捆绑木马下载者，不要以为ARP病毒对自己工作没有太大影响就可以忽略！！！
❾ vbs脚本获取主机名,IP,Mac地址，放到指定的TXT文档里面，请问怎么写，用于域策略部署实施
'以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSI
result=""
info="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set querylist=wmi.ExecQuery(StrReverse("metsySretupmoC_23niW morf * tceles"))
For Each it In querylist
If trim(it.Name) <> "" Then
result=result & "主机名=" & it.Name & vbCrLf
End If
Next
Set querylist=wmi.ExecQuery(StrReverse("'EURT'=delbanEPI erehw noitarugifnoCretpadAkrowteN_23niW morf * tceles"))
For Each it In querylist
If trim(it.MACAddress) <> "" Then
If trim(it.IPAddress(0)) <> "" Then
result=result & "IP=" & it.IPAddress(0) & vbCrLf
End If
result=result & "MAC=" & it.MACAddress & vbCrLf
End If
Next
msgbox result & info
❿ 如何写一个脚本操作MAC地址
echo "00:00:27:1d:01:ff"|awk -F":" 'BEGIN{hex=256}function dtoh(i){return strtonum("0x"i)}{mac=dtoh($1)*hex^5+dtoh($2)*hex^4+dtoh($3)*hex^3+dtoh($4)*hex^2+dtoh($5)*hex+dtoh($6);mac++;printf("%02x:%02x:%02x:%02x:%02x:%02x\n",int(mac/hex^5),int(mac%hex^5/hex^4),int(mac%hex^5%hex^4/hex^3),int(mac%hex^5%hex^4%hex^3/hex^2),int(mac%hex^5%hex^4%hex^3%hex^2/hex),mac%hex^5%hex^4%hex^3%hex^2%hex)}'
00:00:27:1d:02:00