vbs Windows系統改變或修改網卡的MAC地址的腳本與軟件第1/2頁
2019-10-26 18:01:45
供稿：網友
'/*=========================================================================
' * Intro 網上找了一圈，都不怎么好，有一個比較不錯的，漢化作者漢化時加了個自己的介紹文件，這個文件比程序本身還大，感覺不爽，于是本人的VBS版MAC修改代碼便誕生了,在使用過程中如果出現不能上網的情況得返回一下網卡驅動（有些機器比較特別），如果要返回以前的MAC可以：開始-->控制面板-->網絡連接-->點擊您的網卡(一般是"本地連接")-->點擊常規里的屬性-->配置..-->高級-->選中-->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 & "編號：" & objItem.Index & " MAC：" & objItem.MACAddress & vbCrLf & "網卡：" & objItem.Description & vbCrLf & vbCrLf
Next
idx = InputBox( msg , "1/2請輸入您要修改的MAC的編號", "1")
If Not IsNumeric(idx) Or Len(idx) = 0 Then
WScript.Echo "編號輸入有誤，退出"
Wscript.Quit
End If
MAC = InputBox( "輸入你指定的MAC地址值（注意應該是12位的連續數字或字母，其間沒有-、：等分隔符）" , "2/2請輸入修改后的MAC地址", "000000000000")
MAC = Replace(Replace(Replace(MAC, ":", ""), "-", ""), " ", "")
