[AngelNine]

Доброго времени суток.
Нужен совет. Есть VBS скрипт который собирает информацию о компьютерах(локальном/удаленном) по имени или IP адресу. Всю информацию он записывает в файл. Я нашел способ запустить этот скрипт из Delphi и даже как получить единичные значения результата его работы, но возникла другая проблема, как можно получить из скрипта массив, грубо говоря список локальных дисков. Подскажите пожалуйста.

[Uniq!]

Сообщение от AngelNine

Есть VBS скрип как ... получить .... список локальных дисков. Подскажите пожалуйста.

Есть чёрный ящик, как из него достать слиток золота. Подскажите пожалуйста (С)

[AngelNine]

Сообщение от Uniq!

Есть чёрный ящик, как из него достать слиток золота. Подскажите пожалуйста (С)

Спасибо Ваш ответ был весьма полезен!

[NumLock]

Сообщение от AngelNine

Я нашел способ запустить этот скрипт из Delphi и даже как получить единичные значения результата его работы

через IScriptControl, надеюсь? тогда смотри его методы Eval, ExecuteStatement, Run.

[AngelNine]

Сообщение от NumLock

через IScriptControl, надеюсь? тогда смотри его методы Eval, ExecuteStatement, Run.

Извините, я немного не правильно поставил вопрос, не совсем точно.
Конструкцию для запуска скрипта я использую

Код:

  sc:=CreateOLEObject('MSScriptControl.ScriptControl');
  SC.Language:='VBScript';
  SC.Timeout:=-1;
  SC.AllowUI:=True;
  SC.ExecuteStatement(Memo1.Text);

На данный момент я получил такуб конструкцию с помощью которой можно вернуть из скрипта с помощью Eval значение

Код:

Dim Name1(10, 5)
'Name1=Array(1,2,3)
Dim i
i=0
Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & "eoi-004-06" & "\Root\CIMV2")
'Set Name1 = wmio.ExecQuery("Select * from Win32_LogicalDisk")
    For Each objItem in wmio.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType = 3 AND Size IS NOT NULL")
        Name1(i, 0)=objItem.Name
        Name1(i, 1)=objItem.FileSystem
        Name1(i, 2)=objItem.Size
        Name1(i, 3)=objItem.FreeSpace
        Name1(i, 4)=objItem.VolumeSerialNumber
        i=i+1
    Next

но она слишком большая и это только информация о локальных дисках. И получается что при сборе всей информации код получается слишком большой. Можно ли как то упростить данную конструкцию и передать в программу Delphi сразу всю структуру которую возвращает

Код:

wmio.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType = 3 AND Size IS NOT NULL")

[Freeman]

Вроде к WMI можно как-то подключаться через ADO.

[NumLock]

так перепиши скрипт сразу в Delphi:

objLocator:=CreateOleObject('WbemScripting.SWbemLo cator') as ISWbemLocator;
objServices:=objLocator.ConnectServer('', 'root\CIMV2', '', '', '', '', 0, nil)

и понеслась...

[AngelNine]

Всем спасибо действительно решение было намного проще, после длительного гугления была найдена библиотека WbemScripting_TLB которая неплохо справляется с необходимой задачей, но возникла небольшая проблема.В определенные моменты, по непонятной причине появляется следующая ошибка

Код:

Could not convert variant of type (Dispatch) into type (String)

. На данный момент она появляется при попытке получить информации о видеоадаптере и сетевых интерфейсах, На сетевых интерфейсах он не может обработать IP адрес, а видеоадаптерах на некоторых машинах о названии видео процессора и объеме памяти. Может кто сталкивался и может подсказать как это обойти?

[NumLock]

Ну не может тип интерфейс к строке преобразоваться, проверяй тип варианта

[AngelNine]

Сообщение от NumLock

Ну не может тип интерфейс к строке преобразоваться, проверяй тип варианта

Я понимаю суть ошибки, но почему на некоторых компах он возвращяет нормально данные а иногда этот интерфейс? И как можно проверить что он вернул?

[NumLock]

VarType функция

[AngelNine]

А выяснить почему так происходит можно как то выяснить?
Все данные возвращаются в формате varDispatch((( Но большую часть он конвертирует нормально, а не которые нет...