尝试使用EXCEL 来完成MAC地址的修改工作

wp231957

1. Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
   
2. Sub wp()
   
3.   Set obj = GetObject("winmgmts:\\.\root\cimv2")
   
4.   Set items = obj.execquery("select * from win32_networkadapterconfiguration where ipenabled=true", , 48)
   
5.   i = 3
   
6.   Range("i:i").Select
   
7.   Range("h:h").Clear
   
8.   Range("i:i").Clear
   
9.   Selection.HorizontalAlignment = xlHAlignLeft
   
10.   For Each Item In items
    
11.      Range("h" & Trim(Str(i))).Value = "活动网卡序号"
    
12.      Range("i" & Trim(Str(i))).Value = Item.Index
    
13.      Range("h" & Trim(Str(i + 1))).Value = "活动网卡MAC地址"
    
14.      Range("i" & Trim(Str(i + 1))).Value = Item.macaddress
    
15.      Range("h" & Trim(Str(i + 2))).Value = "活动网卡名称"
    
16.      Range("i" & Trim(Str(i + 2))).Value = Item.Description
    
17.      i = i + 4
    
18.      'Debug.Print Item.Index, Item.macaddress, Item.Description
    
19.   Next
    
20.   Range("h:h").EntireColumn.AutoFit
    
21.   Range("i:i").EntireColumn.AutoFit
    
22.   Range("h" & Trim(Str(i))).Value = "请在下面单元格填写当前电脑的主网卡序号"
    
23.   Range("h" & Trim(Str(i + 1))).Value = Range("i3").Value
    
24.   Range("h" & Trim(Str(i + 1))).Select
    
25.   Selection.HorizontalAlignment = xlHAlignLeft
    
26.   Selection.NumberFormatLocal = "0000"
    
27.   
    
28. End Sub
    
29. 
    
30. Sub rebootnet()
    
31. 
    
32. Set wsshell = CreateObject("wscript.shell")
    
33. reg = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4d36e972-e325-11ce-bfc1-08002be10318}" & WorksheetFunction.Text(Range("h12"), "0000")
    
34. Debug.Print reg
    
35. networkname = wsshell.regread(reg & "\NetCfgInstanceId")
    
36. Debug.Print networkname
    
37. reg2 = wsshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\network\{4d36e972-e325-11ce-bfc1-08002be10318}" & networkname & "\connection\name")
    
38. Debug.Print reg2
    
39. wsshell.popup "程序将重启你的网卡，请稍后......", 2, "MAC修改", 64
    
40. wsshell.Run ("cmd /c netsh interface set interface " & reg2 & " disabled"), 0
    
41. Sleep 5000
    
42. Debug.Print "ok"
    
43. wsshell.Run ("cmd /c netsh interface set interface " & reg2 & " enabled"), 0
    
44. Sleep (5000)
    
45. Debug.Print "over"
    
46. End Sub
    

复制代码