Скачать: CL | DM;

Обзор компьютеров в домене, 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

---

← →
lka ©   (2006-05-23 15:20) [4]

Сайт конечно хороший...
но имеем одну проблему...
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 ___

---

← →
Rouse_ ©   (2006-05-24 16:57) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.97 c