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