VPF::GetHostByAddr: имя рабочей группы есть не всегда.

malor

Дата 19.11.2012, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет

Программа NameWG:

Код

const
  TEST_ADDRESS = '192.168.146.1';

function GetCompName(const Addr: Integer): String;
var
  WSA: TWSAData;
  Host: PHostEnt;
  Err: Integer;
begin
  Result := RES_UNKNOWN;
  Err := WSAStartup(WSA_TYPE, WSA);

  if Err <> 0 then  
  begin             
    //ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;

  try
    if Addr = INADDR_NONE then Exit;

    Host := GetHostByAddr(@Addr, SizeOf(Addr), PF_INET);

    if Assigned(Host) then  
      Result := PChar(WideString(AnsiString(Host.h_name))) 
    else
      //ShowMessage(SysErrorMessage(GetLastError));
  finally
    WSACleanup;
  end;

end;

Windows 7 имеет IP-адрес виртуального интерфейса "192.168.146.1".
Причислена к домену "mydomain.local":

user posted image

Внутри "VMWare Player" вращается "Windows XP", имеющая IP-адрес "192.168.146.132".
Запуск программы "NameWG" из Windows XP:

user posted image

Запуск программы из исходной Windows 7:

user posted image

Сканирование из программы NetView:

user posted image

Сканирование из программы LANState Pro:

user posted image

Почему программа "NameWG" не пишет в имени фразу "mydomain.local" у узла "192.168.146.1" ("Windows7") ?
Или, что то же самое, почему сканировщики "LANState Pro" & "NetView" не приписывают у узла xvm имя рабочей группы? Оно всё-таки существует (на скринах не привожу).

Это сообщение отредактировал(а) malor - 19.11.2012, 13:32

Присоединённый файл ( Кол-во скачиваний: 1 )

NameWG_19_11_2012__3_.zip 146,40 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »