核心代碼

'/*=========================================================================  ' * Intro    網(wǎng)上找了一圈，都不怎么好，有一個(gè)比較不錯(cuò)的，漢化作者漢化時(shí)加了個(gè)自己的介紹文件，這個(gè)文件比程序本身還大，感覺(jué)不爽，于是本人的VBS版MAC修改代碼便誕生了,在使用過(guò)程中如果出現(xiàn)不能上網(wǎng)的情況得返回一下網(wǎng)卡驅(qū)動(dòng)（有些機(jī)器比較特別），如果要返回以前的MAC可以：開(kāi)始-->控制面板-->網(wǎng)絡(luò)連接-->點(diǎn)擊您的網(wǎng)卡(一般是"本地連接")-->點(diǎn)擊常規(guī)里的屬性-->配置..-->高級(jí)-->選中-->NetworkAddress-->右邊選擇"不存在"  ' * FileName  ChangeMAC.vbs  ' * Author   yongfa365  ' * Version   v3.0  ' * WEB     http://www.yongfa365.com  ' * Email    yongfa365[at]qq.com  ' * MadeTime  2007-12-09 22:17:58  ' * LastModify 2007-12-13 18:35:58  ' *==========================================================================*/    On Error Resume Next  strComputer = "."  Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")  Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=true", , 48)  For Each objItem in colItems    msg = msg & "編號(hào)：" & objItem.Index & "  MAC：" & objItem.MACAddress & vbCrLf & "網(wǎng)卡：" & objItem.Description & vbCrLf & vbCrLf  Next    idx = InputBox( msg , "1/2請(qǐng)輸入您要修改的MAC的編號(hào)", "1")  If Not IsNumeric(idx) Or Len(idx) = 0 Then    WScript.Echo "編號(hào)輸入有誤，退出"    Wscript.Quit  End If  MAC = InputBox( "輸入你指定的MAC地址值（注意應(yīng)該是12位的連續(xù)數(shù)字或字母，其間沒(méi)有-、：等分隔符）" , "2/2請(qǐng)輸入修改后的MAC地址", "000000000000")  MAC = Replace(Replace(Replace(MAC, ":", ""), "-", ""), " ", "")  If RegExpTest("[^/da-fA-F]", MAC)>0 Or Len(MAC)<>12 Then    WScript.Echo "MAC輸入有誤，退出"    Wscript.Quit  End If      idx = Right("00000"&idx, 4)  reg = "HKLM/SYSTEM/CurrentControlSet/Control/Class/{4D36E972-E325-11CE-BFC1-08002bE10318}/" & idx  Set WSHShell = CreateObject("WScript.Shell")  WshShell.RegWrite reg & "/NetworkAddress", MAC , "REG_SZ"  WshShell.RegWrite reg & "/Ndi/params/NetworkAddress/default" , MAC , "REG_SZ"  WshShell.RegWrite reg & "/Ndi/params/NetworkAddress/ParamDesc" , "NetworkAddress" , "REG_SZ"  WshShell.RegWrite reg & "/Ndi/params/NetworkAddress/optional" , "1" , "REG_SZ"  '得到網(wǎng)卡的名稱，比如“本地連接 2”  NetWorkName = WshShell.RegRead("HKLM/SYSTEM/ControlSet001/Control/Network/{4D36E972-E325-11CE-BFC1-08002BE10318}/" & WshShell.RegRead(reg & "/NetCfgInstanceId") & "/Connection/Name")    restartNetWork NetWorkName  'WScript.Echo "修改成功"    Function restartNetWork(sConnectionName)    '重啟網(wǎng)卡    'sConnectionName = "本地連接 5" '可改成需要控制的連接名稱，如"無(wú)線網(wǎng)絡(luò)連接"等    '定位到網(wǎng)絡(luò)連接    Set shellApp = CreateObject("shell.application")    Set oControlPanel = shellApp.Namespace(3)    For Each folderitem in oControlPanel.Items      If folderitem.Name = "網(wǎng)絡(luò)連接" Then        Set oNetConnections = folderitem.GetFolder        Exit For      End If    Next    '定位到要處理的網(wǎng)卡    For Each folderitem in oNetConnections.Items      If LCase(folderitem.Name) = LCase(sConnectionName) Then        Set oLanConnection = folderitem        Exit For      End If    Next    '重啟網(wǎng)卡    For i = 1 To 2      For Each verb in oLanConnection.verbs        If RegExpTest("啟用|禁用|停止", verb.Name)>0 Then          verb.DoIt          Exit For        End If      Next      '有時(shí)網(wǎng)卡半天反應(yīng)不過(guò)來(lái)，可以把這個(gè)參數(shù)設(shè)的大點(diǎn)一般程序可以正常運(yùn)行，或您多運(yùn)行幾次程序      WScript.Sleep 5000    Next          End Function      '正則測(cè)試有沒(méi)有匹配內(nèi)容    Function RegExpTest(patrn, strng)    Set re = New RegExp    re.Pattern = patrn    re.IgnoreCase = True    re.Global = True    Set Matches = re.Execute(strng)    RegExpTest = Matches.Count  End Function 

網(wǎng)上相關(guān)介紹一：

　　如何修改網(wǎng)卡MAC地址


　　輕松修改網(wǎng)卡的MAC（物理）地址如今大家都是ADSL上網(wǎng)，當(dāng)你查網(wǎng)費(fèi)時(shí)就會(huì)發(fā)現(xiàn)，每次上網(wǎng)電信都會(huì)記錄下你的網(wǎng)卡MAC地址，這是因?yàn)镮P地址是動(dòng)態(tài)的（每次上網(wǎng)都不同），而MAC地址卻是不變的――每張網(wǎng)卡都有一個(gè)與眾不同的MAC（物理）地址，因此MAC地址就成了客戶的網(wǎng)上身份證，通過(guò)記錄MAC地址，即可確認(rèn)是你上的網(wǎng)！

　　一、MAC地址的用途
　　MAC地址在網(wǎng)卡中是固定的，每張網(wǎng)卡的MAC地址都不一樣。網(wǎng)卡在制作過(guò)程中，廠家會(huì)在它的EPROM里面燒錄上一組數(shù)字，這組數(shù)字，每張網(wǎng)卡都各不相同，這就是網(wǎng)卡的MAC（物理）地址。

　　由于MAC地址的唯一性，因此它主要用來(lái)識(shí)別網(wǎng)絡(luò)中用戶的身份。例如ADSL上網(wǎng)時(shí)，電信用它來(lái)記費(fèi)，確認(rèn)是你上的網(wǎng)；在校園網(wǎng)中，MAC地址也可以用來(lái)識(shí)別用戶。對(duì)于校園網(wǎng)的正式用戶，其MAC地址會(huì)登記在服務(wù)器端，假如你是非法用戶，服務(wù)器中就沒(méi)有你的網(wǎng)卡MAC地址，這樣當(dāng)你試圖連上網(wǎng)時(shí)，服務(wù)器就會(huì)立刻認(rèn)出你、阻止你連上網(wǎng)絡(luò)。

　　二、MAC地址是可以修改的
　　有些場(chǎng)合，例如冒充網(wǎng)絡(luò)中的正式用戶，就需要修改你的網(wǎng)卡MAC.要修改MAC地址，你可以通過(guò)硬件的方法實(shí)現(xiàn)，即利用網(wǎng)卡廠家提供的修改程序來(lái)燒錄網(wǎng)卡的EEPROM，這樣做雖然可行，但是風(fēng)險(xiǎn)很大、操作也復(fù)雜，即使你很有經(jīng)驗(yàn)，也難免在操作中出現(xiàn)錯(cuò)誤。

　　其實(shí)你完全沒(méi)必要用燒錄方法、修改網(wǎng)卡中的MAC地址。要知道Windows安裝的時(shí)候，會(huì)自動(dòng)從網(wǎng)卡中讀入MAC地址，把它存放在注冊(cè)表中以備后用。當(dāng)數(shù)據(jù)在網(wǎng)絡(luò)中傳輸時(shí)，從網(wǎng)卡發(fā)出的數(shù)據(jù)包中要求有一個(gè)源MAC地址，這個(gè)MAC地址就是從注冊(cè)表中讀取的（并非從網(wǎng)卡中讀取的），因此只要你修改了注冊(cè)表中的MAC地址，就相當(dāng)于改了網(wǎng)卡EEPROM中的MAC地址，兩者實(shí)際效果是完全相同的！

　　三、修改注冊(cè)表中MAC的方法
　　1、使用軟件修改
　　本方法適用于所有類型的網(wǎng)卡。在不同的Windows下，要用不同的軟件修改MAC.

　　（1）Win2003/XP/2000

　　如果你的系統(tǒng)是Win2003/XP/2000，可以使用SMAC（下載地址http://www.klcconsulting.net/smac/#Download）。這款軟件并不能修改網(wǎng)卡中的MAC地址，只能修改注冊(cè)表中的MAC.

　　該軟件有兩種運(yùn)行模式，如果你啟用了"Windows Management Instrumentation （WMI）"服務(wù)，軟件即運(yùn)行在[WBEM ON]模式下，可以顯示更多的網(wǎng)卡信息，否則運(yùn)行在[WBEM OFF]模式下，在軟件窗口標(biāo)題欄可看到當(dāng)前運(yùn)行模式。

　　軟件的使用非常簡(jiǎn)單，運(yùn)行后點(diǎn)擊"Refresh"，窗口中的列表框?qū)@示網(wǎng)卡的類型、IP地址、Active MAC等，在下面六個(gè)輸入框中輸入你指定的MAC地址（圖1），然后點(diǎn)擊右側(cè)的"Update MAC"，即可修改完成；最后重啟電腦使修改值生效。

　　圖1
　　注意，試用版不能輸入新的MAC地址，只能把MAC改成0C-0C-0C-0C-0C-01

　　（2）Win98
　　如果你的系統(tǒng)是Win98，建議使用"Mac掃描器"，這個(gè)工具可以修改注冊(cè)表中的MAC地址，然后重啟電腦使修改生效。

　　2、在網(wǎng)卡屬性中修改
　　如果你的網(wǎng)卡采用了RealTek公司的RTL8139芯片，就可以在網(wǎng)卡屬性中修改MAC，這樣注冊(cè)表中的MAC地址也會(huì)一同改變，方法如下：

　　圖2
　　在Win2003/XP/2000中，點(diǎn)擊菜單"開(kāi)始"/設(shè)置/控制面板，雙擊"系統(tǒng)"，點(diǎn)擊"硬件"/設(shè)備管理器，在設(shè)備管理器中展開(kāi)"網(wǎng)絡(luò)適配器"，右擊要修改MAC地址的網(wǎng)卡，選擇"屬性"；點(diǎn)擊"高級(jí)"選項(xiàng)卡，在"屬性"下，選擇點(diǎn)擊Network Address項(xiàng)目（圖2），在右側(cè)"值"的下方，輸入你要指定的MAC地址值（例如020202020202），注意要連續(xù)輸入12個(gè)數(shù)字或字母（中間不要輸入-）；重新啟動(dòng)電腦后，修改即可生效。至于Win98下的MAC修改方法，與以上方法類似。

　　如果修改之后，在Win2003/XP/2000 下，你又想把注冊(cè)表中的MAC地址恢復(fù)成原樣，可以選擇"Network Address"項(xiàng)，將右邊的值選擇為"不存在"，再重新啟動(dòng)即可；在Win98下是選擇"沒(méi)有顯示"。

　　3、在注冊(cè)表中修改
　　對(duì)于非RTL8139芯片的網(wǎng)卡，你可以直接修改注冊(cè)表中的MAC，注意：修改注冊(cè)表前，要先備份注冊(cè)表。

　　（1）Win2003/XP/2000

　　點(diǎn)擊"開(kāi)始"/運(yùn)行，輸入regedit打開(kāi)注冊(cè)表，定位到HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Class/{4D36E972-E325-11CE-BFC1-08002BE10318}/0000、0001、0002等主鍵下，查找DriverDesc的內(nèi)容，了解網(wǎng)卡使用了哪個(gè)主鍵（例如0001），如果主鍵下有params項(xiàng)，則該主鍵也是網(wǎng)卡所使用的；

　　例如網(wǎng)卡使用了0001主鍵，因此我們就選中它，在其右邊建一個(gè)字符串項(xiàng)（名為NetworkAddress），雙擊該串，輸入你指定的MAC地址值（注意應(yīng)該是12位的連續(xù)數(shù)字或字母，其間沒(méi)有-號(hào)）；在0001下的NDI/params中添加一項(xiàng)子鍵（名為NetworkAddress），選擇該子鍵，在其右邊添加名為default的字符串，鍵值為修改后的MAC地址，與上面的數(shù)值相同；修改后重啟生效。

　　（2）Win98
　　點(diǎn)擊"開(kāi)始"/運(yùn)行，鍵入winipcfg選擇你要修改的網(wǎng)卡，并記錄下MAC地址值；然后點(diǎn)擊"開(kāi)始"/運(yùn)行，輸入regedit打開(kāi)注冊(cè)表，定位到HKEY_LOCAL_MACHINE/System/Current ControlSet/Services/Class/Net，下面有"0000"、"0001"、"0002"等子鍵；從"0000"子鍵開(kāi)始點(diǎn)擊，依次查找子鍵下的"DriverDesc"鍵內(nèi)容，直到找到剛才記錄的MAC地址為止；

　　例如網(wǎng)卡使用了0001主鍵，因此我們就選中它，在其右邊新建一個(gè)串，名稱為networkaddress，再雙擊該串，輸入新的MAC地址值（注意應(yīng)該是12位的連續(xù)數(shù)字或字母，其間沒(méi)有-號(hào)）；最后重啟電腦使修改生效。

網(wǎng)上有個(gè)公開(kāi)代碼的程序，我漢化了一下，下載地址：MACAddressChanger.rar