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

Как определить рабочую группу удаленного компьютера ?   Найти похожие ветки 

← →
Vorobyev Sergey ©   (2003-11-12 08:42) [0]

Привет всем!
Как определить рабочую группу удаленного компьютера в сети (по MAC, IP, HOSTNAME)?
Искал, но не нашел ответа..
Может это вообще невозможно?

---

← →
Rouse_ ©   (2003-11-12 09:04) [1]

Через WNetOpenEnum + WNetEnumResource + WNetCloseEnum

Желаю успехов

---

← →
Vorobyev Sergey ©   (2003-11-12 11:59) [2]

> [1] Rouse_ © (12.11.03 09:04)

Слишком долго и неудобно..

Я тут сам повозился и вот что получилось, может кому пригодится:

function GetWorkGroup(CompName:string):string;
var
Computer: TNetResource;
WorkGroup:array [1..500] of TNetResource;
BufSize: Cardinal;
begin
BufSize := SizeOf(WorkGroup);
with Computer do
begin
dwType := RESOURCETYPE_ANY;
lpRemoteName := PChar("\\" + Trim(CompName));
lpProvider := "Microsoft Windows Network";
end;

if WNetGetResourceParent(@Computer, @WorkGroup, Cardinal(BufSize)) = NO_ERROR then
Result := WorkGroup[1].lpRemoteName
else
Result := "";
end;

---

← →
Meronikol   (2003-11-12 16:56) [3]

Хочу выразить благодарность Vorobyev Sergey за его решение, так как уже запарился искать решение на данную задачу. Спасибо.

---

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

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



Память: 0.45 MB
Время: 0.016 c