Wmi Через Vbs На Windows 7 X64

[orion]

Здравствуйте!
Не могу понять одну штуку. Код подключается к классу WMI, считывает данные типа String и должен вывести на экран то, что прочитал. Но выдаёт ошибку "Несоответствие типа".

Dim objWMIService
Dim objItem

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objItem In objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
WScript.Echo objItem.IPAddress
Next

Про несоответствие типа как раз ругается на строку Wscript.Echo.
Может быть на х64 нужно как-то по-другому?!

 

[orion]

Здравствуйте!
Не могу понять одну штуку. Код подключается к классу WMI, считывает данные типа String и должен вывести на экран то, что прочитал. Но выдаёт ошибку "Несоответствие типа".

Вопрос закрыт.
Решение:

Dim objWMIService
Dim objItem
Dim str, index

str = ""
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objItem In objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
If Not IsNull(objItem.IPAddress) Then
For index = LBound(objItem.IPAddress) To UBound(objItem.IPAddress)
str = str + objItem.IPAddress(index)
Next
End If
Next

Wscript.Echo str