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

Тема в разделе "Visual Basic", создана пользователем orion, 2 июн 2014.

Статус темы:
Закрыта.
  1. orion

    orion Active Member

    Регистрация:
    22 окт 2013
    Сообщения:
    39
    Симпатии:
    0
    Здравствуйте!
    Не могу понять одну штуку. Код подключается к классу WMI, считывает данные типа String и должен вывести на экран то, что прочитал. Но выдаёт ошибку "Несоответствие типа".
    Код (LotusScript):
    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 нужно как-то по-другому?!
     
  2. orion

    orion Active Member

    Регистрация:
    22 окт 2013
    Сообщения:
    39
    Симпатии:
    0
    Вопрос закрыт.
    Решение:

    Код (LotusScript):
    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей