Обзор компьютеров в домене, GetObject

← →
lka © (2006-05-15 08:19) [0]

Добрый день!
пытаюсь получить список компьютеров домена.
почитал доки наткнулся на интересный пример с использованием технологии COM на Визуал Бэйсике:
Set comp = GetObject("WinNT://DOMAIN,domain") comp.Filter = Array("computer") For Each svc In comp Debug.Print svc.Name & " " & svc.DisplayName Next

Вопрос как это можно реализовать на Delphi?
не нашел ни чего похожего на GetObject..

← →
MetalFan © (2006-05-15 13:16) [1]

"Как найти все комьютеры в сети"
http://delphiworld.narod.ru/base/find_net_comps.html
http://delphiworld.narod.ru/base/find_net_comps2.html
http://delphiworld.narod.ru/base/find_net_comps3.html
http://delphiworld.narod.ru/base/find_net_comps4.htm
"Как найти все компьютеры в рабочей группе"
http://delphiworld.narod.ru/base/find_all_computers_in_workgroup.html

надеюсь поможет.
с ув.

← →
lka © (2006-05-15 13:59) [2]

не совсем...
данные примеры работают аналогично сетевому окружению т.е показывают только те компьютеры, которые в данный момент включены и не скрыты
а вот тот пример на VB работаем как Computer Managment, т.е показывает все компьютеры зарегистрированные в домене
есть еще пример для получении настройки Сетевой карты
GetObject("winmgmts:{impersonationLevel=impersonate}!//" + $Computer).ExecQuery("select IPAddress,IPSubnet,MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

← →
MetalFan © (2006-05-15 14:30) [3]

тогда, как я понимаю, Вам сюда
http://delphiworld.narod.ru/base/wmi_use.html

Сайт конечно хороший...
но имеем одну проблему...
WMIcore только для NT4, что делать если у меня WIN2000?
нашел один вариант
function getobject(const name:string;accs:dword=STGM_default):variant; var err:HResult; bo:tBINDOPTS; res:IDispatch; nm:widestring; begin nm := name; fillchar(bo,sizeof(bo),0); with bo do begin cbStruct := sizeof(bo); grfFlags := BIND_MAYBOTHERUSER; grfMode := accs; end; err:=CoGetObject( @nm[1] , @bo , IDispatch , @res ); OleCheck(err); result:=res; end;
работает, вот только теперь не пойму как сделать FOR EACH ___ in ___

http://rouse.front.ru/domaininfo.zip

Обзор компьютеров в домене, GetObject Найти похожие ветки