28.08.2014, 18:50
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
так перепиши скрипт сразу в Delphi:
Цитата:
objLocator:=CreateOleObject('WbemScripting.SWbemLo cator') as ISWbemLocator;
objServices:=objLocator.ConnectServer('', 'root\CIMV2', '', '', '', '', 0, nil)
|
и понеслась... |