| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить рабочую группу удаленного компьютера ? [Win95/98, NT4, Win2k, WinXP]
Vorobyev Sergey © (2003-11-12 08:42:00)
Привет всем!
Как определить рабочую группу удаленного компьютера в сети (по MAC, IP, HOSTNAME)?
Искал, но не нашел ответа..
Может это вообще невозможно?
Meronikol (2003-11-12 16:56:00) [1]
Хочу выразить благодарность Vorobyev Sergey за его решение, так как уже запарился искать решение на данную задачу. Спасибо.
Vorobyev Sergey (2003-11-12 11:59:00) [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;
Rouse_ (2003-11-12 09:04:00) [3]
Через WNetOpenEnum + WNetEnumResource + WNetCloseEnum
Желаю успехов
| |
