GetHostByAddr: имя рабочей группы не выводит у компа из виртуалки

[malor]

Программа 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":



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



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



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



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



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

Delphi XE

[Dee63]

Предположу, что винапи в разных версиях выдает разные итоги.
Я где-то у себя писал обход этой фигни, но что-то не припомню сходу где. надо поискать, ибо как раз дорабатываю этот продукт до новой версии

[malor]

Нашлось что-нить ?