请教关于WMI获取DNS的函数代码的问题

feelsky

在论坛上看到这样一段代码：

1. Func _NetworkAdapterInfo()
   
2.         Local $colItem
   
3.         Local $objItem
   
4.         Local $colItems
   
5.         Local $objItems
   
6.         Local $objWMIService
   
7.         Local $Adapters[1][12]
   
8.         $Adapters[0][0] = 0
   
9.         $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
   
10.         $colItem = $objWMIService.ExecQuery("Select * FROM Win32_NetworkAdapter Where NetConnectionStatus >0", "WQL", 0x30)
    
11.         If IsObj($colItem) Then
    
12.                 For $objItem In $colItem
    
13.                         If $objItem.MACAddress = "00:00:00:00:00:00" Then ContinueLoop
    
14.                         $Adapters[0][0] += 1
    
15.                         ReDim $Adapters[UBound($Adapters) + 1][12]
    
16.                         $Adapters[$Adapters[0][0]][0] += $Adapters[0][0]
    
17.                         $Adapters[$Adapters[0][0]][1] = $objItem.NetConnectionStatus
    
18.                         $Adapters[$Adapters[0][0]][2] = $objItem.Description
    
19.                         ;MsgBox( 0, "", $objItem.Description )
    
20.                         $Adapters[$Adapters[0][0]][3] = $objItem.NetConnectionID
    
21.                         $Adapters[$Adapters[0][0]][4] = $objItem.MACAddress
    
22.                         $Adapters[$Adapters[0][0]][11] = $objItem.PNPDeviceID
    
23.                         $colItems = $objWMIService.ExecQuery('Select * FROM Win32_NetworkAdapterConfiguration Where MACAddress = "' & $Adapters[$Adapters[0][0]][4] & '" And IPEnabled = True ', "WQL", 48)
    
24.                         If IsObj($colItems) Then
    
25.                                 For $objItems In $colItems
    
26.                                         $Adapters[$Adapters[0][0]][5] = $objItems.IPAddress(0)
    
27.                                         $Adapters[$Adapters[0][0]][6] = $objItems.DefaultIPGateway(0)
    
28.                                         $Adapters[$Adapters[0][0]][7] = $objItems.IPSubnet(0)
    
29.                                         $Adapters[$Adapters[0][0]][8] = $objItems.DNSServerSearchOrder(0)
    
30.                                         $Adapters[$Adapters[0][0]][9] = $objItems.DNSServerSearchOrder(1)
    
31.                                         $Adapters[$Adapters[0][0]][10] = $objItems.SettingID
    
32.                                 Next
    
33.                         EndIf
    
34.                 Next
    
35.         EndIf
    
36.         Return $Adapters
    
37. EndFunc   ;==>_NetworkAdapterInfo

复制代码

现在有一个问题就是如果电脑中DNS只填了一个主DNS，另一个没有填 参数的情况下，打开就会出错:
$Adapters[$Adapters[0][0]][9] = $objItems.DNSServerSearchOrder(1)^ERROR

Error:请求动作失败（请求于对象）

本人对WMI一点不懂，努力学习中，故求解决方法。先谢了

无名蜘蛛

我也只填了一个DNS 测试没有出错

feelsky

哦，原来如此，我是在WIN7环境下出现错误的。刚才在XP下测试了一下正常。

G，man。

跟着学习，呵呵