Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Определение имени рабочей группы и ip удаленного компа   Найти похожие ветки 

← →
IceBeerg ©   (2004-05-05 13:51) [0]

Помогите с определением параметров функции NetGroupEnum, по лелпу подобрать немогу :( нужно получить имя текущей рабочей группы.
И подскажите как определить ip удаленного компа по его имени?

---

← →
IceBeerg ©   (2004-05-05 14:04) [1]

Всем лень помочь?
Или никто незнает? <- неверю.

---

← →
BlackTr   (2004-05-05 16:00) [2]

Для получения группы я обычно использую:

function GetDomain(Nam: string):string;
var
Buf2:PChar;
BufSize:DWORD;
WorkgroupRS:TNetResource;
buf:Array[1..10] of TNetResource;
s:string;
begin
FillChar(WorkgroupRS,SizeOf(WorkgroupRS),0);
BufSize:=100;
GetMem(Buf2,BufSize );
Result:="";
try
 if WNetGetProviderName(WNNC_NET_LANMAN,Buf2,BufSize)=NO_ERROR then
 begin
  s:=Buf2;
  With WorkgroupRS do
  begin
   dwType := RESOURCETYPE_ANY;
   lpRemoteName:=PChar("\\"+Nam);
   lpProvider:=PChar(s);
  end;
 end;
finally
 FreeMem(Buf2);
end;
  BufSize:=100;    
  if WNetGetResourceParent(@WorkgroupRS,@Buf,BufSize)=NO_ERROR
  then
  begin
   Result:=Buf[1].lpRemoteName;
  end;
end;


---

← →
IceBeerg ©   (2004-05-06 19:05) [3]

Спасибо. Но про ip как. GetHostByName...?

---

← →
BlackTr   (2004-05-07 09:35) [4]

Ну да :)

---

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

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c