Win32_NetworkAdapterConfiguration

 

 1     strComputer = "."
 2     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 3     
 4 '    Set colNetAdapters = objWMIService.ExecQuery (_
 5 '        "Select * from Win32_NetworkAdapterConfiguration Where Index=8")
 6 '   Index=8，导致硬件更换后网卡序列号不对。
 7     Set colNetAdapters = objWMIService.ExecQuery (_
 8         "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=True")
 9     
10     strIPAddress = Array("192.168.188.109")
11     strSubnetMask = Array("255.255.255.0")
12     strGateway = Array("192.168.188.100")
13     strGatewayMetric = Array(1)
14 '    If colNetAdapters Is Nothing Then
15 '        MsgBox "不能创建colNetAdapters对象。"
16 '    End If 
17     
18     For Each objNetAdapter in colNetAdapters
19 '        WScript.Echo objNetAdapter.Caption  'Atheros AR8131 PCI-E Gigabit Ethernet Controller
20         '修改指定网卡的IP
21         If Left(objNetAdapter.Description,Len("Atheros AR8131"))="Atheros AR8131" Then 
22             errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
23             errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
24         End If 
25     Next
26     
27 '    参考资料：
28 '    http://social.msdn.microsoft.com/Forums/zh-CN/windowssdk/thread/466fa3b8-9179-4244-9b83-5f8ffc6825bc
29 '    http://topic.csdn.net/u/20100720/17/08148f61-926a-4a94-8ebd-3edcde9a5c0a.html