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

Статус
Закрыто для дальнейших ответов.

orion

Active Member
22.10.2013
39
0
#1
Здравствуйте!
Не могу понять одну штуку. Код подключается к классу 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

Active Member
22.10.2013
39
0
#2
Здравствуйте!
Не могу понять одну штуку. Код подключается к классу 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
 
Статус
Закрыто для дальнейших ответов.