VBS引用对象的数组类型疑问

everest79

1. 
   
2. Function GetIP
   
3. Dim wmi
   
4. Set wmi=GetObject("winmgmts:\\.\root\cimv2")
   
5. Set wmq=wmi.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled='True'")
   
6. For Each obj in wmq
   
7.     msgbox obj.ipaddress(0) & vbCrLf & obj.defaultipgateway(0) & vbCrLf & obj.IPSubnet(0)
   
8.     msgbox Ubound(obj.IPAddress)
   
9.     For i= 0 to Ubound(obj.IPAddress)
   
10.            Msgbox obj.IPAddress(i) & obj.IPSubnet(i) & i
    
11.     Next
    
12. Next
    
13. End Function
    

复制代码

1. 
   
2. Function GetIP
   
3. Dim wmi
   
4. Set wmi=GetObject("winmgmts:\\.\root\cimv2")
   
5. Set wmq=wmi.ExecQuery("Select * From Win32_NetworkAdapterConfiguration  Where IPEnabled='true'")
   
6. For Each obj in wmq
   
7. msgbox obj.ipaddress(0)
   
8. msgbox obj.ipaddress(1)
   
9. msgbox obj.ipaddress
   
10. Next
    
11. End Function
    

复制代码

例一中obj.ipaddress的上限也为0，但被识别为一个数组，是否IP地址这样的类型是一个特殊的类型

rat

Use the Win32_NetworkAdapterConfiguration class and check the value of the IPAddress property. This is returned as an array, so use a For-Each loop to get the value.

1. strComputer = "."
   
2. Set objWMIService = GetObject( _
   
3.     "winmgmts:\" & strComputer & "\root\cimv2")
   
4. Set IPConfigSet = objWMIService.ExecQuery _
   
5.     ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
   
6. 
   
7. For Each IPConfig in IPConfigSet
   
8.     If Not IsNull(IPConfig.IPAddress) Then
   
9.         For i=LBound(IPConfig.IPAddress) _
   
10.             to UBound(IPConfig.IPAddress)
    
11.                 WScript.Echo IPConfig.IPAddress(i)
    
12.         Next
    
13.     End If
    
14. Next

复制代码

http://msdn.microsoft.com/en-us/library/aa394595.aspx

[ 本帖最后由 rat 于 2008-11-6 10:12 编辑 ]

everest79

谢谢rat，原来这个值是打注册表返回的特殊类型