论坛 › 『 提问交流 』 › 修改MAC，的wmi脚本

love5173 发表于 2011-7-9 16:18:17

修改MAC，的wmi脚本

代码是论坛别人的，因为以前没接触过wmi，所以弄不明白，只能看大概做了什么，里面的参数看不懂
现在的问题是这样的，有的电脑可以修改，有的修改不成功，用过这个达人可以说一下这个代码是不是有缺陷，还是我用的方式不对，修改不成功的机器是单网卡的，另外对于多网卡，这个好用不？
现在在看论坛的wmi教程1-4，远水解不了近渴#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>

$rkey = _getmac(3)

$Path = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
$Temp1 = RegRead($Path & $rkey, "ComponentId")
$Temp2 = RegRead($Path & $rkey, "MatchingDeviceId")
$Temp3 = RegRead($Path & $rkey, "DriverDesc")





                        TrayTip("MAC修改器", "正在修改网卡MAC地址，请稍候...", 10)
                        _modifiaMAC(makemac())
                        TrayTip("MAC修改器", "正在重新启动网卡，请稍候...", 10)
                     ; _ReStart()

                        TrayTip("MAC修改器", "已将本机网卡的MAC地址更改为："&_getmac(1), 10)


;函数设置
Func _getmac($n)
      $strComputer = "."
      $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
      $colItems = $objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
      For $objItem In $colItems
                If StringLeft($objItem.MACAddress, 2) = 00 Then
                        $MACAdress = $objItem.MACAddress
                        $Key = StringMid($objItem.Caption, 6, 4)
                        $DriverDesc = $objItem.Description
                EndIf
      Next
      $colName = $objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
      For $objName In $colName
                $Name = $objName.Name
      Next
      Switch $n
                Case 1
                        Return $MACAdress
                Case 2
                        Return $Name
                Case 3
                        Return $Key
                Case 4
                        Return $DriverDesc
      EndSwitch
EndFunc   ;==>_getmac

Func makemac();产生随机地址
      Local $tt="00000000"
                $ip=StringRegExp(@IPAddress1,'.*\.(\d+)\.(\d+)',3)
                If $ip<100 And $ip>9 Then $ip="0"&$ip
                If $ip<10 Then $ip="0 "&$ip
                $tt=$tt&$ip&$ip
      ;MsgBox(0,0,$tt)
      Return $tt
EndFunc   ;==>makemac

Func _modifiaMAC($NewMAC) ;写入注册表值更改MAC
      If $Temp1 = $Temp2 Then
                RegWrite($Path & $rkey, "NetworkAddress", "REG_SZ", $NewMAC)
                $PathNew = $Path & $rkey & "\Ndi\Params\NetworkAddress\"
                RegWrite($PathNew)
                RegWrite($PathNew, "ParamDesc", "REG_SZ", "Network Address")
                RegWrite($PathNew, "Default", "REG_SZ", $NewMAC)
                RegWrite($PathNew, "Optional", "REG_SZ", "1")
      Else
                MsgBox(0, "", "检测到网卡修改后可能会出现问题!禁止修改!", 5)
                _Exit()
      EndIf
EndFunc   ;==>_modifiaMAC

Func _ReStart() ;利用Devcon工具读取DEV.ID以及重新启动网络连接
      If FileExists(@ScriptDir & "\devcon.exe") = 1 Then
                RunWait(@ComSpec & ' /c devcon find pci\* > "' & @TempDir & '"\Dev.txt', "", @SW_HIDE)
                $i = 0
                $file = FileOpen(@TempDir & "\Dev.txt", 0)
                While 1
                        $i = $i + 1
                        $lineWherther = FileReadLine($file)
                        $Wherther = StringSplit($lineWherther, ":")
                        If StringInStr($Wherther, $Temp3) Then ExitLoop
                WEnd
                $line = FileReadLine($file, $i)
                $Split = StringSplit($line, "&")
                FileClose($file)

                RunWait("devcon disable *" & $Split & "*", "", @SW_HIDE)
                RunWait("devcon enable *" & $Split & "*", "", @SW_HIDE)
      Else
                MsgBox(0, "错误", "缺少devcon.exe文件!" & @CRLF & "请重新启动主程序!", 5)
                _Exit()
      EndIf
EndFunc   ;==>_ReStart



Func _Exit() ;退出事件
      FileDelete(@TempDir & "\Dev.txt")
      Exit
EndFunc   ;==>_Exit

dyd 发表于 2011-7-9 16:27:55

占个沙发！！

user3000 发表于 2011-7-10 02:03:31

帮忙顶个,这方面的内容应该以后也会用得上

查看完整版本: 修改MAC，的wmi脚本